word vba添加右键菜单及子菜单

您可以使用以下代码在 Word VBA 中添加右键菜单及子菜单：

Sub AddContextMenu()
    Dim cb As CommandBar
    Dim cbc As CommandBarControl
    Dim cbcc As CommandBarControl
    
    '获取右键菜单
    Set cb = CommandBars("Text")
    
    '添加主菜单项
    Set cbc = cb.Controls.Add(Type:=msoControlPopup, Before:=1)
    With cbc
        .Caption = "MyMenu"
        .Tag = "MyMenuTag"
    End With
    
    '添加子菜单项
    Set cbcc = cbc.Controls.Add(Type:=msoControlButton)
    With cbcc
        .Caption = "SubMenu1"
        .OnAction = "MyMacro1"
    End With
    
    Set cbcc = cbc.Controls.Add(Type:=msoControlButton)
    With cbcc
        .Caption = "SubMenu2"
        .OnAction = "MyMacro2"
    End With
End Sub

Sub MyMacro1()
    '您可以在这里编写子菜单项 SubMenu1 的代码
End Sub

Sub MyMacro2()
    '您可以在这里编写子菜单项 SubMenu2 的代码
End Sub

您需要将 "MyMenu" 和 "MyMenuTag" 替换为您想要的主菜单项名称和标记。还需要将 "MyMacro1" 和 "MyMacro2" 替换为您想要执行的子菜单项代码的名称。

这个示例将右键菜单添加到文本编辑区域中，如果您想要添加到其他区域，可以更改 `CommandBars("Text")` 的参数。