Visual studio 2010 无法向word上的自定义按钮添加操作；“文本”；弹出菜单

接下来的几天我过得很艰难。我正在使用Visual Studio 2010 Beta，在Visual Basic.Net中开发一个word模板（.dotm）

我试图在word的文本弹出/上下文菜单上添加我自己的按钮。但是，如果我使用.OnAction属性，我会在word中得到一个错误消息，说明以下内容：

由于您的宏安全设置，宏无法找到或已被禁用

我假设我得到这个错误是因为它找不到我试图调用的子对象（名称正确，并且它位于同一个类中）

我尝试了另一种方法，即WithEvents，但是它将事件与我添加到菜单栏的最后一个按钮相关联

我尝试的第三种方法是AddHandler，它只启动一次，然后就不再启动了

以下是我使用的代码：

For Each myItem In activeDoc.CommandBars
        If myItem.Type = Microsoft.Office.Core.MsoBarType.msoBarTypePopup And myItem.Name = officeMenuName Then
            shortMenu = Me.activeDoc.CommandBars(myItem.Index).Controls
            shortPopup = shortMenu.Add(Type:=Office.MsoControlType.msoControlPopup, Temporary:=True)

            With shortPopup
                .Caption = menuName
                .Visible = True
            End With

            For i = LBound(menuItems) To UBound(menuItems)

                shortItem = shortPopup.Controls.Add(Type:=Office.MsoControlType.msoControlButton, Temporary:=True)
                AddHandler shortItem.Click, AddressOf shortMenuNu

                With shortItem
                    .Caption = menuHeader(i)
                    .Visible = True
                    .Tag = menuItems(i)

                    .OnAction = "shortMenuItem_Click" 'where the name of the sub resides in the same class
                    'or AddHandler shortItem.Click, AddressOf shortMenuItem_Click
                End With

                shortItem = Nothing
            Next
        End If
    Next  

如果您对此有任何意见，我将不胜感激

---

有什么想法吗？

我只是有同样的症状。在我的例子中，我为包含

ComandBarPopup

控件的

CommandBar

控件定义了一个

OnAction

。在包含控件上没有操作