在鼠标右键单击事件中添加自定义菜单选项
问题描述:
当在文档中选择某些单词并右键单击时,应该调用宏函数。或者类似的,应该添加自定义右键菜单选项,当我点击该菜单选项时,应该调用宏。在鼠标右键单击事件中添加自定义菜单选项
例如:
在该文件中我有四位号码,如2001年和2010年当我选择四位数字编号,然后按下鼠标右键,然后按我的自定义菜单选项,宏应该被称为没有选择四个数字。应该被解析为被调用的宏函数。
我得到了一些代码,但它的Excel,我不知道如何自定义它的Microsoft Word。
为Excel代码:
Const strMacro = "YourCode"
Sub CreateMacro()
Dim cBut
Call KillMacro
Set cBut = Application.CommandBars("Cell").Controls.Add(Temporary:=True)
With cBut
.Caption = strMacro
.Style = msoButtonCaption
.OnAction = "Test_Macro"
End With
End Sub
Sub Test_Macro()
MsgBox "I work"
End Sub
Sub KillMacro()
On Error Resume Next
Application.CommandBars("Cell").Controls(strMacro).Delete
End Sub
答
对于Microsoft Word 2007年,我已经粘贴宏代码在右击鼠标事件添加自定义菜单选项,让所选择的文本的功能。
宏:
Option Explicit
Sub CreateMacro()
Dim MenuButton As CommandBarButton
With CommandBars("Text")
Set MenuButton = .Controls.Add(msoControlButton)
With MenuButton
.Caption = "Press Me"
.Style = msoButtonCaption
.OnAction = "Test_Macro"
End With
End With
End Sub
Sub Test_Macro()
MsgBox Selection.text
End Sub
Sub ResetRightClick()
Application.CommandBars("Text").Reset
End Sub
什么版本的Word您使用的是?执行此操作的方法取决于您是否在功能区使用Word。 – Christina 2014-12-16 16:36:22
Microsoft word 2007 – vidhya 2014-12-17 05:51:18