Quit Method

  • Article

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