Word 365中EventHandler强制退出导致文档报错问题求助

问题背景 #

在Word 365环境下，通过宏捕获Document_Open事件，执行StampaModulo后调用Doc.Close False和App.Quit强制退出Word。但最新更新后，再次打开同一文档时，文档会被标记为禁用项并弹出报错；若删除自动关闭语句改为手动关闭则一切正常。

涉及代码如下：

事件类代码 #

Public WithEvents App As Application

Private Sub App_DocumentOpen(ByVal Doc As Document)
   StampaModulo
   
   Doc.Close False
   App.Quit
End Sub

关联类与应用程序的模块代码 #

Dim x As New EventClassHandler

Public Sub AutoExec()
    Set x.App = Application
End Sub

问题原因 #

强制退出的时机过早，Word尚未完成文档打开后的全部初始化或资源清理流程，导致文档状态被异常标记，触发Word的安全机制将其加入禁用列表。

解决方案 #

方案1：延迟执行退出操作 #

通过Application.OnTime延迟退出，给Word足够时间完成当前文档的处理流程：

修改事件类代码：

Public WithEvents App As Application

Private Sub App_DocumentOpen(ByVal Doc As Document)
    StampaModulo
    ' 延迟1秒执行退出，确保Word完成当前处理
    Application.OnTime Now + TimeValue("00:00:01"), "QuitWordSafely"
End Sub

在普通模块中添加退出子程序：

Public Sub QuitWordSafely()
    ' 确认文档状态，避免重复操作
    If Not ActiveDocument Is Nothing Then
        ActiveDocument.Close False
    End If
    Application.Quit
End Sub

方案2：激活文档后再关闭，同步状态 #

在关闭文档前先激活它，确保Word能正确识别文档状态：

Private Sub App_DocumentOpen(ByVal Doc As Document)
    StampaModulo
    
    Doc.Activate
    Doc.Close False
    ' 等待系统完成当前操作
    DoEvents
    App.Quit
End Sub

方案3：将退出逻辑移至打印例程内部 #

确保打印操作完全完成后再触发退出，修改StampaModulo：

Sub StampaModulo()
    ' 原有打印逻辑代码
    ' ...
    
    ' 打印完成后触发安全退出
    Application.OnTime Now + TimeValue("00:00:01"), "QuitWordSafely"
End Sub

注意事项 #

• 测试前需先移除文档的禁用标记：打开Word选项 → 信任中心 → 信任中心设置 → 禁用项目 → 选中目标文档点击启用。
• 可根据实际操作耗时调整延迟时长（如0.5秒或2秒）。

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