如何通过VBA调用WordAddIn（Word加载项）中的菜单按钮？

宏录制无法捕获第三方加载项的按钮操作属于正常情况，以下是可直接使用的实现方法，可覆盖你需要触发加载项菜单按钮的场景：

• 方案1：通过CommandBars集合定位控件并触发
  绝大多数Word加载项注册的菜单、功能区按钮都会在CommandBars集合中生成对应控件对象，找到目标控件后调用Execute方法即可模拟点击，是通用性最高的方案。
  第一步先运行遍历代码，定位目标控件的信息：

  Sub 枚举所有命令栏控件()
      Dim bar As CommandBar
      Dim ctrl As CommandBarControl
      For Each bar In Application.CommandBars
          For Each ctrl In bar.Controls
              ' 按Ctrl+G打开立即窗口可查看所有输出条目
              Debug.Print "按钮标题：" & ctrl.Caption, "所属命令栏：" & bar.Name, "控件ID：" & ctrl.ID
          Next
      Next
  End Sub
  

  在立即窗口中匹配到和目标按钮标题一致的条目后，即可编写触发代码：

  Sub 点击目标加载项按钮()
      Dim targetBtn As CommandBarControl
      ' 替换为实际查到的命令栏名称、按钮标题，多层级菜单需逐级追加Controls引用
      Set targetBtn = Application.CommandBars("加载项对应命令栏名称").Controls("目标按钮显示标题")
      targetBtn.Execute
  End Sub
  

• 方案2：直接调用加载项公开的自动化接口
  部分COM/VSTO加载项会对外暴露可编程接口，不需要模拟点击，稳定性更高：

  Sub 调用加载项公开方法()
      Dim targetAddin As COMAddIn
      Dim addinApi As Object
      ' 替换为目标加载项的ProgID，可在Word「COM加载项」窗口中查询
      Set targetAddin = Application.COMAddIns("目标加载项ProgID")
      Set addinApi = targetAddin.Object
      ' 替换为加载项文档中公开的对应方法名
      Call addinApi.目标方法名
  End Sub
  

• 备选方案：快捷键映射触发
  如果上述两种方法都无法定位到控件（常见于使用Ribbon自定义回调、未向CommandBars注册控件的加载项），可以先给目标按钮在Word选项中自定义绑定全局快捷键，再通过VBA发送快捷键触发：

  Sub 快捷键触发按钮()
      ' 激活Word窗口
      AppActivate Application.Caption
      ' 替换为你绑定的快捷键，比如^%e代表Ctrl+Alt+E
      SendKeys "^%e"
  End Sub
  

  该方法需要确保触发时Word窗口处于前台，稳定性弱于前两种方案。

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