word vba添加右键菜单及子菜单，菜单可恢复

您可以通过以下步骤在Word中添加右键菜单及子菜单，并且菜单是可恢复的：

1. 打开Word文档，按下Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，点击【插入】->【模块】，新建一个模块。
3. 在新建的模块中，输入以下代码：

Option Explicit

' 定义变量
Private WithEvents App As Application
Private MyMenu As CommandBarPopup

' 初始化
Sub Init()
    Set App = Application
    Set MyMenu = CommandBars("Text").Controls.Add(Type:=msoControlPopup, Before:=13)
    With MyMenu
        .Caption = "我的菜单"
        .Tag = "MyMenu"
        .Visible = True
    End With
End Sub

' 添加子菜单
Sub AddSubMenu()
    Dim NewMenu As CommandBarPopup
    Set NewMenu = MyMenu.Controls.Add(Type:=msoControlPopup)
    With NewMenu
        .Caption = "子菜单1"
        .Tag = "SubMenu1"
        .Visible = True
    End With
End Sub

' 移除子菜单
Sub RemoveSubMenu()
    Dim Ctrl As CommandBarControl
    For Each Ctrl In MyMenu.Controls
        If Ctrl.Tag = "SubMenu1" Then
            Ctrl.Delete
            Exit For
        End If
    Next Ctrl
End Sub

' 清除菜单
Sub ClearMenu()
    Dim Ctrl As CommandBarControl
    For Each Ctrl In MyMenu.Controls
        Ctrl.Delete
    Next Ctrl
End Sub

' 事件处理
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    ' 在此处处理右键菜单的显示/隐藏
    If Sel.Text <> "" Then
        MyMenu.Visible = True
    Else
        MyMenu.Visible = False
    End If
End Sub

4. 保存并关闭VBA编辑器，返回Word文档界面。
5. 按下Alt + F8打开宏窗口，运行Init宏，可以在Word的右键菜单中看到一个名为“我的菜单”的菜单项。
6. 再运行AddSubMenu宏，可以在“我的菜单”下添加一个名为“子菜单1”的子菜单项。
7. 运行RemoveSubMenu宏，可以将“子菜单1”子菜单项移除。
8. 运行ClearMenu宏，可以将整个菜单清空。

这样，您就可以通过VBA在Word中添加右键菜单及子菜单，并且菜单是可恢复的。在MyMenu的Visible属性中，您可以自定义菜单的显示/隐藏条件。