Word VBA教程：Close方法

应用于 Document 和 Documents对象的 Close方法。

关闭指定的一个或多个文档。

expression.Close(SaveChanges, OriginalFormat, RouteDocument)

expression   必需。该表达式返回以上的一个对象。

SaveChanges  Variant 类型，可选。指定保存文档的操作。可以是下列 WdSaveOptions 常量之一：wdDoNotSaveChanges、wdPromptToSaveChanges 或 wdSaveChanges。

OriginalFormat  Variant 类型，可选。指定保存文档的格式。可以是下列 WdOriginalFormat 常量之一：wdOriginalDocumentFormat、wdPromptUser 或 wdWordDocument。

RouteDocument  Variant 类型，可选。如果该属性值为 True，则将文档发送给下一个收件人。如果文档没有附加传送名单，则忽略该参数。

应用于 MailMergeDataSource、Pane 和 Task对象的 Close方法。

关闭指定的邮件合并数据源、窗格或任务。

expression.Close

expression   必需。该表达式返回以上的一个对象。

应用于 Window对象的 Close方法。

关闭指定的窗口。

expression.Close(SaveChanges, RouteDocument)

expression   必需。该表达式返回以上的一个对象。

SaveChanges  Variant 类型，可选。指定保存文档的操作。可以是下列 WdSaveOptions 常量之一：wdDoNotSaveChanges、wdPromptToSaveChanges 或 wdSaveChanges。

RouteDocument  Variant 类型，可选。如果该属性值为 True，则将文档发送给下一个收件人。如果文档没有附加传送名单，则忽略该参数。

VBA示例

当应用于 Document对象时。

本示例在关闭活动文档前提示用户保存该文档。如果用户单击“取消”，则捕获错误 4198（命令失败）并显示一条信息。

On Error GoTo errorHandlerActiveDocument.Close _    SaveChanges:=wdPromptToSaveChanges, _    OriginalFormat:=wdPromptUsererrorHandler:If Err = 4198 Then MsgBox "Document was not closed"

当应用于 Pane对象时。

本示例在拆分活动窗口时关闭活动窗格。

If ActiveDocument.ActiveWindow.Panes.Count >= 2 Then _    ActiveDocument.ActiveWindow.ActivePane.Close

当应用于 Task对象时。

本示例先激活 Microsoft Excel，然后将其关闭。

For Each myTask In Tasks    If InStr(myTask.Name, "Microsoft Excel") > 0 Then        myTask.Activate        myTask.Close    End IfNext myTask

当应用于 Window对象时。

本示例关闭活动文档的活动窗口并保存文档。

ActiveDocument.ActiveWindow.Close SaveChanges:=wdSaveChanges