Quit Method 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.

response = MsgBox("Do you want to save all documents?", vbYesNo)
If response = vbYes Then Application.Quit _
    SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument