word vba显示右键菜单及子菜单

可以使用以下代码在 Word VBA 中显示右键菜单及子菜单：

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    Dim oButton As CommandBarButton
    Dim oPopup As CommandBarPopup
    
    '获取当前文档的 CommandBar 控件
    Set oPopup = CommandBars("Text")
    
    '添加一个新的 CommandBarButton
    Set oButton = oPopup.Controls.Add(msoControlButton)
    With oButton
        .Caption = "点击此处"
        .OnAction = "MyAction"
    End With
    
    '添加一个新的 CommandBarPopup
    Set oPopup = oPopup.Controls.Add(msoControlPopup)
    With oPopup
        .Caption = "子菜单"
        '添加子菜单项
        .Controls.Add msoControlButton, , , , True
        .Controls(1).Caption = "子菜单项1"
        .Controls.Add msoControlButton, , , , True
        .Controls(2).Caption = "子菜单项2"
    End With
    
End Sub

'定义右键菜单项的执行动作
Sub MyAction()
    MsgBox "您点击了右键菜单项！"
End Sub

以上代码中，我们通过 `CommandBars("Text")` 获取到了当前文档的 CommandBar 控件，然后使用 `Controls.Add` 方法添加了一个新的 `CommandBarButton` 和一个新的 `CommandBarPopup`。在 `CommandBarPopup` 中，我们使用 `Controls.Add` 方法添加了两个子菜单项。最后在 `MyAction()` 子例程中定义了右键菜单项的执行动作。