Word VBA教程:Quit方法

退出 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,则将文档传送给下一个收件人。如果文档没有附加的传送名单,则忽略该参数。

VBA示例

本示例退出 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号