退出 Microsoft Word,并可选择保存或传送打开的文档。
expression.Quit(SaveChanges, Format, RouteDocument)
expression 必需。该表达式返回一个 Application 对象。
SaveChanges Variant 类型,可选。指定退出 Word 前是否保存修改过的文档。可以是下列 WdSaveOptions 常量之一。
WdSaveOptions 可以是下列 WdSaveOptions 常量之一: |
wdDoNotSaveChanges |
wdPromptToSaveChanges |
wdSaveChanges |
OriginalFormat Variant 类型,可选。指定 Word 对文档的保存方式(该文档的原始格式并非是 Word 文档格式)。可以是下列 WdOriginalFormat 常量之一。
WdOriginalFormat 可以是下列 WdOriginalFormat 常量之一: |
wdOriginalDocumentFormat |
wdPromptUser |
wdWordDocument |
RouteDocument Variant 类型,可选。如果为 True,则将文档传送给下一个收件人。如果文档没有附加的传送名单,则忽略该参数。
本示例退出 Word 并提示用户保存自上次保存后已修改过的每篇文档。
Application.Quit SaveChanges:=wdPromptToSaveChanges
本示例提示用户保存所有文档。如果用户单击“是”按钮,则在退出 Word 前,所有的文档都将以 Word 格式进行保存。
Dim intResponse As Integer
intResponse = _
MsgBox("Do you want to save all documents?", vbYesNo)
If intResponse = vbYes Then Application.Quit _
SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument