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

可以使用 ContextMenu 属性来设置右键菜单及子菜单。

下面是一个示例代码，可以在 Word VBA 编辑器中运行：

Sub SetContextMenu()
    Dim cbar As CommandBar
    Dim cbarbtn As CommandBarButton
    Dim cbarctrl As CommandBarControl
    Dim submenu As CommandBarPopup
    
    '获取当前文档的右键菜单
    Set cbar = Application.CommandBars("Text")
    
    '添加一个自定义按钮
    Set cbarbtn = cbar.Controls.Add(msoControlButton)
    With cbarbtn
        .Caption = "自定义按钮"
        .OnAction = "CustomButtonAction"
    End With
    
    '添加一个子菜单
    Set submenu = cbar.Controls.Add(msoControlPopup, , , , True)
    With submenu
        .Caption = "子菜单"
        '添加子菜单中的按钮
        Set cbarctrl = .Controls.Add(msoControlButton)
        With cbarctrl
            .Caption = "子菜单按钮1"
            .OnAction = "SubmenuButton1Action"
        End With
        Set cbarctrl = .Controls.Add(msoControlButton)
        With cbarctrl
            .Caption = "子菜单按钮2"
            .OnAction = "SubmenuButton2Action"
        End With
    End With
    
    '将右键菜单与文档关联
    ActiveDocument.ContextMenu = cbar.Index
End Sub

Sub CustomButtonAction()
    '自定义按钮的点击事件
    MsgBox "您点击了自定义按钮"
End Sub

Sub SubmenuButton1Action()
    '子菜单按钮1的点击事件
    MsgBox "您点击了子菜单按钮1"
End Sub

Sub SubmenuButton2Action()
    '子菜单按钮2的点击事件
    MsgBox "您点击了子菜单按钮2"
End Sub

运行上述代码后，打开 Word 文档并右键单击文本区域，就可以看到自定义的右键菜单及子菜单了。点击菜单项时会触发相应的 VBA 代码，您可以根据需要修改代码实现自己的功能。