Quit Method
Quits Microsoft Word and optionally saves or routes the open documents.
expression**.Quit**(SaveChanges, Format, RouteDocument)
expression Required. An expression that returns an Application object.
WdSaveOptions
WdSaveOptions can be one of these WdSaveOptions constants. |
wdDoNotSaveChanges |
wdPromptToSaveChanges |
wdSaveChanges |
WdOriginalFormat
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
Applies to | Application Object
See Also | Close Method | DocumentChange Event | ExitWindows Method | New Event | Open Event | Quit Method