如何关闭Word新建文档并终止后续VBA代码运行？

问题描述 #

我正在创建一个Word模板，在Document_New事件初始化时会执行一系列操作——比如从XML文件导入并应用自定义文档属性，再在另一个子程序中引用这些属性。

我想添加错误处理：验证报错时关闭新建文档（不影响其他已打开的Word文档），同时终止所有VBA代码运行。目前用ThisDocument.Close SaveChanges:=wdDoNotSaveChanges只能关闭模板，但新建文档还在，VBA代码也会继续执行。

补充的错误检测代码如下：

Sub ValidateProperties()
    Dim arrayProps(1)   As String
    Dim i               As Long
    
    arrayProps(0) = "prop-doc-blueprint"
    arrayProps(1) = "prop-doc-stationery"
    
    For i = 0 To UBound(arrayProps)
        If CustomDocumentPropertyExists(arrayProps(i)) = False Then
            ExitFailedValidation ("The required custom document property " & arrayProps(i) & " is missing. Please check " & _
                "the config.xml file to ensure it is included.")
        End If
    Next i
End Sub

Sub ExitFailedValidation(Message As String)

    MsgBox "The Template failed to load and validate." & vbCrLf & vbCrLf & _
        Message, vbCritical, "Error loading template"
    
    MsgBox ThisDocument.Name
    MsgBox ActiveDocument.Name
    
    ThisDocument.Close SaveChanges:=wdDoNotSaveChanges
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
    
End Sub

核心问题分析 #

• ThisDocument指代的是模板文件本身，不是基于模板新建的文档，所以关闭它不会影响新建文档。
• 关闭文档后没有终止VBA执行流程，导致剩余代码继续运行。

修改后的解决方案 #

1. 准确关闭新建文档 #

不需要关闭模板文件，只需要关闭基于模板创建的新建文档。可以通过绑定文档对象的方式操作，避免因窗口切换导致的错误。

2. 终止VBA代码执行 #

在关闭文档后，使用End语句直接终止所有VBA代码运行；同时在事件过程中加入错误捕获，确保所有异常都能触发统一的错误处理流程。

修改后的完整代码 #

Sub ValidateProperties()
    Dim arrayProps(1)   As String
    Dim i               As Long
    
    arrayProps(0) = "prop-doc-blueprint"
    arrayProps(1) = "prop-doc-stationery"
    
    For i = 0 To UBound(arrayProps)
        If Not CustomDocumentPropertyExists(arrayProps(i)) Then
            ExitFailedValidation "必填自定义文档属性 " & arrayProps(i) & " 缺失，请检查config.xml文件确认已包含该属性。"
            ' 调用错误处理后直接退出当前子程序，避免继续循环
            Exit Sub
        End If
    Next i
End Sub

Sub ExitFailedValidation(Message As String)
    Dim newDoc As Document
    ' 绑定新建文档对象，避免依赖ActiveDocument的窗口切换问题
    Set newDoc = ActiveDocument
    
    MsgBox "模板加载验证失败。" & vbCrLf & vbCrLf & _
        Message, vbCritical, "模板加载错误"
    
    ' 关闭新建文档，不保存任何更改
    newDoc.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 立即终止所有VBA代码执行，彻底中断后续流程
    End
End Sub

' 优化Document_New事件，加入全局错误捕获
Private Sub Document_New()
    On Error GoTo ErrorHandler
    
    ' 执行初始化验证
    ValidateProperties
    
    ' 这里放模板初始化的其他后续代码...
    
    Exit Sub
ErrorHandler:
    ExitFailedValidation Err.Description
End Sub

关键说明 #

• 用newDoc变量绑定新建文档，避免因窗口切换导致的操作对象错误。
• End语句会立即终止所有正在运行的VBA代码，确保不会有剩余逻辑继续执行。
• 在Document_New中加入错误捕获，能覆盖初始化过程中所有未预期的错误，统一走错误处理流程。

内容的提问来源于stack exchange，提问作者Tom