expression.Quit(SaveChanges, Format, RouteDocument)
expression Required. An expression that returns an Application object.
SaveChanges Optional Variant. Specifies whether Word saves changed documents before quitting. Can be one of the WdSaveOptions constants.
WdSaveOptions can be one of these WdSaveOptions constants. |
wdDoNotSaveChanges |
wdPromptToSaveChanges |
wdSaveChanges |
OriginalFormat Optional Variant. Specifies the way Word saves documents whose original format was not Word Document format. Can be one of the WdOriginalFormat constants.
WdOriginalFormat can be one of these WdOriginalFormat constants. |
wdOriginalDocumentFormat |
wdPromptUser |
wdWordDocument |
RouteDocument Optional Variant. True to route the document to the next recipient. If the document doesn't have a routing slip attached, this argument is ignored.
Example
This example quits Word and prompts the user to save each document that has changed since it was last saved.
Application.Quit SaveChanges:=wdPromptToSaveChanges
This example prompts the user to save all documents. If the user clicks the Yes button, all documents are saved in the Word format before Word quits.
Dim intResponse As Integer
intResponse = _
MsgBox("Do you want to save all documents?", vbYesNo)
If intResponse = vbYes Then Application.Quit _
SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument