在鼠标右键单击事件中添加自定义菜单选项

当在文档中选择某些单词并右键单击时，应该调用宏函数。或者类似的，应该添加自定义右键菜单选项，当我点击该菜单选项时，应该调用宏。在鼠标右键单击事件中添加自定义菜单选项

例如：

在该文件中我有四位号码，如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

来源

2014-12-13 vidhya

什么版本的Word您使用的是？执行此操作的方法取决于您是否在功能区使用Word。 – Christina 2014-12-16 16:36:22

Microsoft word 2007 – vidhya 2014-12-17 05:51:18

对于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

来源

2014-12-17 05:55:53 vidhya

在鼠标右键单击事件中添加自定义菜单选项

回答

相关问题