Word VSTO中Document Open事件无法触发问题排查

1. 多余的Word实例获取干扰事件逻辑 #

你手动通过Marshal.GetActiveObject获取wordApp是完全多余的——VSTO的ThisAddIn类已经内置了Application属性，直接指向当前插件关联的Word实例。手动获取的实例可能与插件绑定的实例不一致，进而干扰事件触发。直接删除这行代码：

Dim wordApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Word.Application")

2. 确保事件绑定可靠 #

虽然代码使用了Handles Application.DocumentOpen，但部分场景下VSTO的自动事件绑定可能失效。建议在Startup事件中手动订阅事件，确保绑定生效：

Private Sub ThisAddIn_Startup() Handles Me.Startup
    AddHandler Application.DocumentOpen, AddressOf Application_DocumentOpen
End Sub

同时在Shutdown中取消订阅，避免内存泄漏：

Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
    RemoveHandler Application.DocumentOpen, AddressOf Application_DocumentOpen
End Sub

3. 用事件参数替代ActiveDocument #

DocumentOpen事件的Doc参数就是刚打开的目标文档，直接使用它比ActiveDocument更可靠（比如文档后台打开时，ActiveDocument可能不是当前操作的文档）。同时要添加异常处理，避免文档未设置标题属性时崩溃：

Private Sub Application_DocumentOpen(Doc As Document)
    MsgBox("opened")
    Try
        Dim docTitle = Doc.BuiltInDocumentProperties("Title").Value.ToString()
        If docTitle = "Posting Slip - Client Receipt" Then
            PostClientReceipt.Visible = True
        Else
            PostClientReceipt.Visible = False ' 补充else逻辑，确保非目标文档下按钮隐藏
        End If
    Catch ex As Exception
        ' 处理标题未设置的异常
        PostClientReceipt.Visible = False
    End Try
End Sub

4. 确保Ribbon按钮的访问权限 #

如果PostClientReceipt是Ribbon上的按钮，默认ThisAddIn无法直接访问该控件，需要做以下处理：

1. 在Ribbon代码文件中，将按钮的Modifiers属性设置为Public
2. 在ThisAddIn中保存Ribbon实例：

Private myRibbon As Ribbon1 ' 替换为你的Ribbon类名
Protected Overrides Function CreateRibbonExtensibilityObject() As Microsoft.Office.Core.IRibbonExtensibility
    myRibbon = New Ribbon1()
    Return myRibbon
End Function

之后修改按钮访问代码为：

myRibbon.PostClientReceipt.Visible = True

5. 处理插件加载前已打开的文档 #

DocumentOpen事件仅在插件加载后打开文档时触发。如果插件是在Word已运行且有文档打开的情况下加载的，需要在Startup中遍历现有文档并执行逻辑：

Private Sub ThisAddIn_Startup() Handles Me.Startup
    AddHandler Application.DocumentOpen, AddressOf Application_DocumentOpen
    ' 处理已打开的文档
    For Each doc As Document In Application.Documents
        Application_DocumentOpen(doc)
    Next
End Sub

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