Word VSTO中Application.DocumentChange事件调试时触发COM异常的问题咨询

你遇到的这个情况其实挺常见的——你的代码在实际安装后能正常控制功能区按钮，但调试时关闭文档就会弹出COM异常，而且你加的Documents.Count > 0判断没起作用，纠结要不要处理对吧？

问题原因 #

核心问题出在DocumentChange事件的触发时机上：当你关闭最后一个Word文档时，这个事件是在文档完全关闭之后才触发的。这时候你判断Documents.Count > 0时，Word的内部状态可能还没同步更新，导致这个判断失效，代码依然会尝试访问ActiveDocument，但此时已经没有活动文档了，所以抛出那个异常。

而正式安装加载项后Word没崩溃，是因为Word作为COM宿主会自动捕获这类异常，不会把错误暴露给普通用户，所以实际使用时完全没问题。

要不要处理？分两种情况看 #

1. 如果调试时能接受偶尔弹出异常：完全可以不用处理，因为这个问题只在Visual Studio调试模式下出现，不影响用户端的使用体验。
2. 如果想让调试过程更顺畅，或者让代码更健壮：建议优化一下判断逻辑，彻底解决这个异常。

优化后的代码示例 #

这里给你调整后的代码，既解决调试时的异常，还能让按钮状态更严谨：

Private Sub Application_DocumentChange() Handles Application.DocumentChange
    Try
        ' 先直接判断ActiveDocument是否存在，比Documents.Count更可靠
        Dim activeDoc = Globals.ThisAddIn.Application.ActiveDocument
        If activeDoc IsNot Nothing Then
            If activeDoc.BuiltInDocumentProperties("Title").Value = "Document Name Here" Then
                ' 显示目标按钮，同时隐藏另一个，避免状态混乱
                Globals.Ribbons.VisualfilesTab.AttachEvidence.Visible = True
                Globals.Ribbons.VisualfilesTab.GetAuthorisation.Visible = False
            Else
                Globals.Ribbons.VisualfilesTab.GetAuthorisation.Visible = True
                Globals.Ribbons.VisualfilesTab.AttachEvidence.Visible = False
            End If
        Else
            ' 没有活动文档时，统一隐藏两个按钮（也可以根据需求设置默认状态）
            Globals.Ribbons.VisualfilesTab.AttachEvidence.Visible = False
            Globals.Ribbons.VisualfilesTab.GetAuthorisation.Visible = False
        End If
    Catch ex As System.Runtime.InteropServices.COMException
        ' 调试时可以在这里打个断点查看，正式运行时可以忽略或记录日志
        Debug.WriteLine($"捕获COM异常: {ex.Message}")
    End Try
End Sub

优化点说明 #

• 用Try-Catch块专门捕获COM异常，避免调试时弹出错误提示
• 优先判断ActiveDocument是否为Nothing，比Documents.Count更准确，因为Word内部状态更新可能有延迟
• 增加了对另一个按钮的状态设置，防止出现两个按钮同时显示的混乱情况，保证状态一致性

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