Word自定义右键菜单的VBA代码示例

本单词的VBA代码的功能简介：在右键文本菜单的中部位置（相当于右击文本时出现的菜单),添加一个自定义命令，并执行相应过程。

私有子文档_关闭()

出错时继续下一步

申请。命令栏("文本")。控件("测试")。"删除"恢复原有菜单

末端接头

私有子文档_打开()

半字节模糊

出错时继续下一步

将新建按钮调暗为命令按钮

申请。命令栏("文本")。控件("测试")。"删除"预防性删除

一半=整数（应用。命令栏('文本').控件。计数/2 '中间位置

设置新按钮=应用程序。命令栏('文本').控件。添加（类型：=msoControlButton，前：=半)

带新按钮。标题="测试"命令名称。FaceId=100 '命令的FaceId。"可见=真"可见。OnAction='MySub ' '指定响应过程名

以…结尾

末端接头

Sub MySub()

"这是对命令栏的测试('文本')!"，vbOKOnly vbInformation

末端接头

Sub ComReset()'重新设置右键菜单，彻底恢复默认设置

申请。命令栏("文本")。重置

末端接头

生成具有命令栏("工具栏列表")或者当于命令栏("视图")。控件('工具栏(T)')中的命令按钮形式：

私有子文档_关闭()

出错时继续下一步

申请。命令栏("文本")。控件("新菜单")。"删除"恢复原有菜单

末端接头

私有子文档_打开()

作为字节变暗，作为字节减半，作为字符串变暗，作为命令变暗

暗淡菜单添加为命令按钮

出错时继续下一步

申请。命令栏("文本")。控件("新菜单")。"删除"预防性删除

一半=整数（应用。命令栏('文本').控件。计数/2 '中间位置

设置新按钮=应用程序。命令栏('文本').控件。添加（类型：=msoControlPopup，之前：=一半)

'带新按钮'这是弹出式菜单即右边带有小三角型的。标题="新菜单"命令名称。"可见=真"可见

以…结尾

因为i=1到4 '新建四个子命令，批量生成

' strName='菜单我

设置菜单添加=新建按钮。控件。添加（类型：=控件按钮)

使用菜单添加。Caption=strName。OnAction='MySub '。'状态=msoButtonDown '带勾选的命令按钮。可见=真

以…结尾

然后

末端接头

Sub MySub()

将操作标记为字符串

ActionCap=CommandBars .动作控制。标题

MsgBox ActionCap

选择案例操作标签

'以此来区分各个命令并执行指定过程

结束选择

使用应用程序。命令栏("文本")。控件("新菜单")

如果。控件(行动帽).状态=关闭按钮关闭然后

"这是一个测试!"，vbOKOnly vbInformation。控件(行动帽).状态=msoButtonUp

其他。控件(行动帽).状态=msoButtonDown

如果…就会结束

以…结尾

末端接头

Sub ComReset()'重新设置右键菜单，彻底恢复默认设置

申请。命令栏("文本")。重置

末端接头

以下为禁用命令和快捷键的常用方式与保存路径，提倡使用修改单词命令更方便。

子示例()

'将自定义菜单栏工具栏或者自定义键盘的改变保存于活动文档中

申请。自定义上下文=活动文档

'利用命令栏（名称)。控件（标题)来定位按钮，具有唯一性

申请。命令栏("标准")。控件('打开(奥).).启用=假"真"

' 利用来定位按钮，不太直观，容易受调整后的命令位置干扰

申请。命令栏("标准")。控件(2)。启用=真"假"

'利用Findcontrol(标识：=)来定位按钮，具有唯一性，并可循环，作用多个此按钮命令

申请命令栏。FindControl(ID:=23).启用=真"假"

'利用命令栏（索引)。控件（索引)来定位按钮，直观，但受调整后的命令位置干扰

申请。命令栏(1)。控件(2)。启用=假"真"

末端接头

子文件打开() '可以将命令与快捷键一并禁用

" MsgBox "这是修改单词命令/打开文件'

末端接头

"子样本()"将CTRL O快捷键重新分配或者修改并保存于当前文档中

自定义上下文=活动文档

密钥绑定。添加密钥代码：=BuildKeyCode(wdKeyControl，wdKeyO)，_

密钥类别：=wdkey categorymcro，命令：='NoFileOpen '

末端接头

子文件打开()

MsgBox "这只是一个测试!"