How to add custom menu option in mouse right click event using vba word?

Question

0.00/5 (No votes)

See more:

I'm a newbie in visual basic stuffs. I have a requirement like when some words are selected in the document and hit right click ,macro function should be called. Or something like,have to create custom right click menu option in the right click mouse event and when I click that menu option ,macro should be called.

For example:

In the document I have four digit numbers like 2001 and 2010. When I select four digit number and hit right click and press my custom menu option,macro should be called and selected four digit no. should be parsed to the macro function which is called.

How to do it?? I got some code but its for excel, I dont't know how to customize it for microsoft word

Code for 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

Posted 14-Dec-14 19:17pm

Vidhya Raju

Updated 14-Dec-14 22:58pm

v2

Add a Solution

Comments

Maciej Los 15-Dec-14 2:24am

Not clear. Please, explain with details. What's an issue?
What version of MS Word (2000, 2003, 2010, 2013)?

Vidhya Raju 15-Dec-14 3:26am

MSword 2007. How to add a custom menu option in the right click mouse event?

Maciej Los 15-Dec-14 3:24am

Use "Reply" widget.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2014-12-14T22:56:00

MS Word differs from Excel. Adding a context menu is a bit more complicated, because we need to create custom class to be able to "manage" right-click event.

Steps to do:

Go to the VBACode editor (ALT+F11)

Insert new class module and change its name to: cRightClickEventHandler. Copy and paste code:

VB

Public WithEvents oApp As Application

Private Sub Class_Initialize()
Set oApp = Application
End Sub

Private Sub Class_Terminate()
Set oApp = Nothing
End Sub

Private Sub oApp_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
    CreateCommand
    Cancel = True
End Sub

Insert new module, copy paste code:

VB

Option Explicit

Public Const sCommName As String = "Custom"

Public cApp As cRightClickEventHandler

Sub CreateCommand()
Dim cb As CommandBar
Dim ctr As CommandBarControl

On Error GoTo Err_CreateCommand

KillCommand

Set cb = Application.CommandBars.Add(sCommName, msoBarPopup)
Set ctr = cb.Controls.Add(msoControlButton)
With ctr
    .Caption = "Let's do it!"
    .TooltipText = .Caption
    .FaceId = 611
    .OnAction = "SayHello"
End With

cb.ShowPopup

Exit_CreateCommand:
    On Error Resume Next
    Set ctr = Nothing
    Set cb = Nothing
    Exit Sub

Err_CreateCommand:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_CreateCommand
End Sub


Sub KillCommand()
On Error Resume Next
    Application.CommandBars(sCommName).Delete
End Sub

Sub SayHello()
    MsgBox Selection.Text, vbInformation, "Hello..."
End Sub

Find ThisDocument module, copy and paste code

VB

Option Explicit

Private Sub Document_Close()
Set cApp = Nothing
End Sub

Private Sub Document_Open()
Set cApp = New cRightClickEventHandler
End Sub

Save a document and reopen it (do not forget to use "Enable Content" button)
Have a fun!