Question

全部显示

退出 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