Word自定义右键菜单的VBA代码示例
发布时间:2023-12-14 04:07:24
本Word的VBA代码的功能简介:在右键文本菜单的中部位置(相当于右击文本时出现的菜单),添加一个自定义命令,并执行相应过程。
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("Text").Controls("Test").Delete ’恢复原有菜单
End Sub
Private Sub Document_Open()
Dim Half As Byte
On Error Resume Next
Dim NewButton As CommandBarButton
Application.CommandBars("Text").Controls("Test").Delete ‘预防性删除
Half = Int(Application.CommandBars("Text").Controls.Count / 2) ‘中间位置
Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=Half)
With NewButton
.Caption = "Test" ’命令名称
.FaceId = 100 ’命令的FaceId
.Visible = True ’可见
.OnAction = "MySub" ‘指定响应过程名
End With
End Sub
Sub MySub()
MsgBox "It’s A Test For CommandBars(""Text"")!", vbOKOnly + vbInformation
End Sub
Sub ComReset() ‘重新设置右键菜单,彻底恢复默认设置
Application.CommandBars("Text").Reset
End Sub
生成具有Commandbars(“Toolbar list”)或者当于CommandBars("View").Controls("工具栏(&T)")中的命令按钮形式:
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("Text").Controls("New Menu").Delete ’恢复原有菜单
End Sub
Private Sub Document_Open()
Dim i As Byte, Half As Byte, strName As String, NewButton As CommandBarPopup
Dim MenuAdd As CommandBarButton
On Error Resume Next
Application.CommandBars("Text").Controls("New Menu").Delete ‘预防性删除
Half = Int(Application.CommandBars("Text").Controls.Count / 2) ‘中间位置
Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlPopup, Before:=Half)
With NewButton ’这是弹出式菜单即右边带有小三角型的
.Caption = "New Menu" ’命令名称
.Visible = True ‘可见
End With
For i = 1 To 4 ’新建四个子命令,批量生成
strName = "Menu" & i
Set MenuAdd = NewButton.Controls.Add(Type:=msoControlButton)
With MenuAdd
.Caption = strName
.OnAction = "MySub"
.State = msoButtonDown ‘带勾选的命令按钮
.Visible = True
End With
Next
End Sub
Sub MySub()
Dim ActionTag As String
ActionCap = CommandBars.ActionControl.Caption
MsgBox ActionCap
Select Case ActionTag
’以此来区分各个命令并执行指定过程
End Select
With Application.CommandBars("Text").Controls("New Menu")
If .Controls(ActionCap).State = msoButtonDown Then
MsgBox "It’s A Test!", vbOKOnly + vbInformation
.Controls(ActionCap).State = msoButtonUp
Else
.Controls(ActionCap).State = msoButtonDown
End If
End With
End Sub
Sub ComReset() ‘重新设置右键菜单,彻底恢复默认设置
Application.CommandBars("Text").Reset
End Sub
以下为禁用命令和快捷键的常用方式与保存路径,提倡使用修改WORD命令更方便。
Sub Example()
‘将自定义菜单栏工具栏或者自定义键盘的改变保存于活动文档中
Application.CustomizationContext = ActiveDocument
‘利用CommandBars(Name).Controls(Caption)来定位按钮,具有唯一性
Application.CommandBars("Standard").Controls("打开(&O)...").Enabled = False ‘TRUE
‘ 利用来定位按钮,不太直观,容易受调整后的命令位置干扰
Application.CommandBars("Standard").Controls(2).Enabled = True ‘False
‘利用Findcontrol(ID:=)来定位按钮,具有唯一性,并可循环,作用多个此按钮命令
Application.CommandBars.FindControl(ID:=23).Enabled = True ‘False
‘利用CommandBars(Index).Controls(Index)来定位按钮,直观,但受调整后的命令位置干扰
Application.CommandBars(1).Controls(2).Enabled = False ‘True
End Sub
Sub FileOpen() ‘可以将命令与快捷键一并禁用
MsgBox "这是修改WORD命令/打开文件"
End Sub
Sub Sample() ’将 CTRL+O快捷键重新分配或者修改并保存于当前文档中
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyO), _
KeyCategory:=wdKeyCategoryMacro, Command:="NoFileOpen"
End Sub
Sub NoFileOpen()
MsgBox "This is only a test!"
End Sub
猜你喜欢
- 在自己电脑上进行系统重装或安装时,对于不同的安装方式,直接安装、U盘安装、系统光盘安装等等,很多小伙伴都想知道windows10系统是如何安
- 操作步骤1、打开Word2010文档,然后选择界面左上角的“文件”选项,单击。从中选择“选项”这一栏。 2、进入“
- 惠普笔记本的有些机型中预装有Office办公软件,如果要使用则需要通过绑定的微软帐户进行激活。但有用户反映在激活的过程中提示无法设置以及错误
- 某会计网校的刘老师正在准备有关《小企业会计准则》的培训课件,她的助手已搜集并整理了一份该准则的相关资料存放在Word文档“《小企业会计准则》
- 无线网络是我们电脑中非常关键的一个功能,有了Wlan我们才能连接无线网络,展开网络冲浪。最近有小伙伴反映自己Win10专业版系统的电脑上,找
- 方法一:1、点击【文件】、【选项】菜单。2、在弹出的对话框中选择【自定义功能区】并在右侧【开发工具】前打钩3、在word文档上方的菜单栏中点
- 1、新建Word文档2、单击“视图”菜单下的“格式”,字号大小工具栏就出现在工具栏中了。效果如图
- 许多小伙伴打开电脑时发现电脑屏幕变黑了。这可能是由于板卡接触不良或机器碰撞问题造成的设备运行不稳定或软件不兼容的严重碰撞和系统碰撞。具体情况
- Win10登录密码忘了怎么办呢?很多用户对此还不是很清楚,小编这里就给大家带来有关Win10登录密码忘了怎么办的回答,希望能够帮助大家了解。
- 小伙们用电脑时多留意会看到nvidia的标志,那么这个叫nvidia的是什么东东呢。这其实是一家公司的logo,叫英伟达,专门生产显卡和主板
- 有些同学可能在卸载Office时遇到了问题,这通常是因为文件被占用或安装文件损坏导致的。而卸载不干净,可能会导致无法顺利重新安装office
- 有些用户的Win10电脑开机后无法正常登录,提示“无法登录到你的账户,通常可以通过从你的账户注销,然后重新登录来解决此问题。如果不立即注销,
- 大家在操作Win10系统电脑时经常会需要用到一些其他的外部设备,比如外连的耳机、摄像头等等,但有时候为了安全想禁用时却不知到怎么去禁用,那么
- 系统经常会弹出提示更新系统,但是有的时候更新很久都还没更新好,很多用户就问Win10更新太慢了能终止吗?答案是不行的,一旦停止了会有很多的危
- 1、打开WPS演示这款软件,进入WPS演示的操作界面,如图所示: 2、在该界面内找到插入选项,如图所示: &nbs
- win10系统提示的recovery蓝屏有什么问题?windows 10系统的recovery蓝屏是当前系统中最容易遇到的问题,使得wind
- 现在很多用户都会在自己的电脑上设置开机密码,来保护自己的隐私和安全,每次win10电脑开机或锁屏后都会弹出一个登录窗口,只有输入密码正常才能
- Word是我们大家很常用的一个办公软件,在用Word编辑文档时,我们有可能会需要输入带钩方框。那么如何在Word2010中输入带钩方框呢?下
- 为了更好的提升工作效率,小美扒出了一款可以在线协作的软件——「腾讯文档」,里面的「在线表格」、「在线文档」和「在线收集表」的功能都很强大,在
- 当我们对win10系统进行分区时,通常使用MBR和GPT,那么哪一个更好呢?GPT是指GUID分区表,它是逐渐取代MBR的新标准。它是在UE