Context Menu (Right Click Menu)

Question

Hi 

I would like to add menu items to the right click menu in Word 2011, how do I do that?

At the moment I would like to add 'Paste and match format' but I will want to add other items in the future, however I can't seem to find out where:

1. Where to find the context menu
2. How to customise it
3. The 'Paste and Match Format menu item

Any help would be appreciated.

Many thanks

Martin

Answer 1

Just thought of this tip: You have to click on text, not on blank areas of the document.

Blank areas are controlled through another contextual menu,

called simply "Text" instead of "Text w/ Thesaurus."

Answer 2

Hi Phillip,

Sure it works.  It just needed a little adjusting.  Try this one in Word.

Option Explicit

Public Const Mname As String = "MyPopUpMenu"

Sub DeletePopUpMenu()

' Delete the popup menu if it already exists.

On Error Resume Next

Application.CommandBars(Mname).Delete

On Error GoTo 0

End Sub

Sub CreateDisplayPopUpMenu()

' Delete any existing popup menu.

Call DeletePopUpMenu

' Create the popup menu.

Call Custom_PopUpMenu_1

' Display the popup menu.

On Error Resume Next

Application.CommandBars(Mname).ShowPopup

On Error GoTo 0

End Sub

Sub Custom_PopUpMenu_1()

Dim MenuItem As CommandBarPopup

' Add the popup menu.

With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, _

MenuBar:=False, Temporary:=True)

' First, add two buttons to the menu.

With .Controls.Add(Type:=msoControlButton)

.Caption = "Button 1"

.FaceId = 71

.OnAction = "TestMacro"

End With

With .Controls.Add(Type:=msoControlButton)

.Caption = "Button 2"

.FaceId = 72

.OnAction = "TestMacro"

End With

' Next, add a menu that contains two buttons.

Set MenuItem = .Controls.Add(Type:=msoControlPopup)

With MenuItem

.Caption = "My Special Menu"

With .Controls.Add(Type:=msoControlButton)

.Caption = "Button 1 in menu"

.FaceId = 71

.OnAction = "TestMacro"

End With

With .Controls.Add(Type:=msoControlButton)

.Caption = "Button 2 in menu"

.FaceId = 72

.OnAction = "TestMacro"

End With

End With

' Finally, add a single button.

With .Controls.Add(Type:=msoControlButton)

.Caption = "Button 3"

.FaceId = 73

.OnAction = "TestMacro"

End With

End With

End Sub

Sub TestMacro()

MsgBox "Hi there! Greetings from Omaha, Nebraska.  What's a boy from Florida doing out here?"

End Sub

Answer 3

Jim  You better eat some crow. I read that link. Not one version mentioned is Mac Version. it starts out with Office 2002 and ends with Office2010. And only in Office2010 and Office2011 are there any similarities.  There are just some things that can be done on PC that was left out of the Mac version.  It much like the difference  and similarities between a Bulldog and a Great Dane They are similar only in that they are breeds of dogs. From that point its obvious the differences. The Mac Version of Office has always received short shrift, but it's the sacrifice we pay for being Mac owners.

Answer 4

I disagree with Bob. You can customize contextual menus in Word, Excel, and PowerPoint. Excel MVP Ron De Bruin has made a web page that explains how to do it. 

http://msdn.microsoft.com/en-us/library/gg987030.aspx

In Mac Office, when you customize the contextual menu, a Help link gets added as the first item in the menu. As far as we know that's the expected behavior.

Answer 5

Contextual menus aren't customizable. If you believe it to be a desirable feature don't hesitate to use Help> Send Feedback to submit your comment to Microsoft.

Regards,

Bob J.