word vba添加右键菜单及子菜单，调用窗体

要在 Word VBA 中添加右键菜单及子菜单并调用窗体，可以按照以下步骤进行操作：

1. 创建一个新的 Word 宏，在“开发工具”选项卡中选择“宏”。

2. 在“宏名”中输入一个名称，例如“AddContextMenu”，然后点击“创建”。

3. 在新的代码窗口中输入以下代码来创建右键菜单及子菜单：

'创建右键菜单
Sub AddContextMenu()
    Dim PopUpMenu As CommandBarPopup
    Dim PopUpSubMenu As CommandBarPopup
    Dim ButtonControl As CommandBarButton
    Dim SubButtonControl As CommandBarButton

    '创建右键菜单
    Set PopUpMenu = Application.CommandBars("Text").Controls.Add(Type:=msoControlPopup, Temporary:=True)
    PopUpMenu.Caption = "右键菜单"

    '创建子菜单
    Set PopUpSubMenu = PopUpMenu.Controls.Add(Type:=msoControlPopup)
    PopUpSubMenu.Caption = "子菜单"

    '创建按钮
    Set ButtonControl = PopUpSubMenu.Controls.Add(Type:=msoControlButton)
    ButtonControl.Caption = "按钮1"
    ButtonControl.OnAction = "OpenForm1"

    '创建另一个按钮
    Set SubButtonControl = PopUpSubMenu.Controls.Add(Type:=msoControlButton)
    SubButtonControl.Caption = "按钮2"
    SubButtonControl.OnAction = "OpenForm2"
End Sub

4. 创建一个名为“OpenForm1”的过程，该过程将打开一个名为“Form1”的用户窗体：

Sub OpenForm1()
    Form1.Show
End Sub

5. 创建另一个名为“OpenForm2”的过程，该过程将打开一个名为“Form2”的用户窗体：

Sub OpenForm2()
    Form2.Show
End Sub

6. 在“开发工具”选项卡中选择“设计模式”，然后在“控件”选项卡中选择“用户窗体”。

7. 在用户窗体中添加所需的控件和代码。

8. 保存并关闭用户窗体，返回代码窗口。

9. 在代码窗口中输入以下代码来显示右键菜单：

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    '显示右键菜单
    Call AddContextMenu
End Sub

现在，当用户右键单击 Word 文档中的内容控件时，将显示您创建的右键菜单及子菜单，并且单击菜单项将调用相应的窗体。