word 右键快捷菜单

asdfghjklzz

在 word 的 ThisDocument 模块中添加文档启动代码

Private Sub Document_Close()
    '此段是关闭文档时自动运行的代码
    On Error Resume Next
    '关闭文档的时候一定要恢复设置过的右键菜单
    With Application
        .CommandBars("Text").Reset 'text是文字右键菜单，此句是恢复原菜单
        .CommandBars("Table Text").Reset 'Table Texts是表格随意右键菜单，此句是恢复原菜单
        .CommandBars("Whole Table").Reset 'Whole Table是表格全选后的右键菜单，此句是恢复原菜单
        .CommandBars("Tables").Reset 'Tables是表格选中一行或者一列的右键菜单，此句是恢复原菜单
    End With
End Sub
Private Sub Document_Open3()
    On Error Resume Next
    '关闭文档的时候一定要恢复设置过的右键菜单
    With Application
        .CommandBars("Text").Reset 'text是文字右键菜单，此句是恢复原菜单
        .CommandBars("Table Text").Reset 'Table Texts是表格随意右键菜单，此句是恢复原菜单
        .CommandBars("Whole Table").Reset 'Whole Table是表格全选后的右键菜单，此句是恢复原菜单
        .CommandBars("Tables").Reset 'Tables是表格选中一行或者一列的右键菜单，此句是恢复原菜单
    End With
   
    '添加文字右键菜单
    With Application.CommandBars("Text").Controls.Add( Type :=msoControlPopup) '在文字右键菜单中添加新的菜单
        .BeginGroup = True '在新菜单上添加分界线
        .Caption = "文字的右键一级菜单" '添加的菜单名字
        With .Controls.Add( Type :=msoControlButton) '在菜单中添加二级菜单
            .Caption = "文字"
            .OnAction = "文字的右键二级菜单" '运行的宏
        End With
    End With
   
    '添加表格随意右键菜单
    With Application.CommandBars("Table Text").Controls.Add( Type :=msoControlButton)
        .Caption = "表格1"
        .OnAction = "表格中随意右键设置"
    End With
   
    '添加表格全选后的右键菜单
    With Application.CommandBars("Whole Table").Controls.Add( Type :=msoControlButton)
        .Caption = "表格2"
        .OnAction = "全选表格后右键菜单设置" '
    End With
   
    '添加表格选中一行或者一列的右键菜单
    With Application.CommandBars("Tables").Controls.Add( Type :=msoControlButton)
        .Caption = "表格3"
        .OnAction = "表格选中一行或者一列的右键菜单设置" '
    End With
End Sub



在随意模块中放入宏代码

Sub 文字的右键二级菜单()
    MsgBox "文字的右键二级菜单"
End Sub
Sub 表格中随意右键设置()
    MsgBox "表格中随意右键设置"
End Sub
Sub 全选表格后右键菜单设置()
    MsgBox "全选表格后右键菜单设置"
End Sub
Sub 表格选中一行或者一列的右键菜单设置()
    MsgBox "表格选中一行或者一列的右键菜单设置"
End Sub