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 errorHandler
ActiveDocument.Close _
    SaveChanges:=wdPromptToSaveChanges, _
    OriginalFormat:=wdPromptUser
errorHandler:
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 If
Next myTask

当应用于 Window对象时。

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


ActiveDocument.ActiveWindow.Close SaveChanges:=wdSaveChanges

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号