Application.Quit Method (Word)
Quits Microsoft Word and optionally saves or routes the open documents.
Syntax
expression .Quit(SaveChanges, Format, RouteDocument)
expression Required. A variable that represents an Application object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
SaveChanges |
Optional |
Variant |
Specifies whether Word saves changed documents before closing. Can be one of the WdSaveOptions constants. |
OriginalFormat |
Optional |
Variant |
Specifies the way Word saves documents whose original format was not Word Document format. Can be one of the WdOriginalFormat constants. |
RouteDocument |
Optional |
Variant |
True to route the document to the next recipient. If the document does not have a routing slip attached, this argument is ignored. |
Example
This example closes 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 Yes, all documents are saved in the Word format before Word closes.
Dim intResponse As Integer
intResponse = _
MsgBox("Do you want to save all documents?", vbYesNo)
If intResponse = vbYes Then Application.Quit _
SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument