Adding to MSWord Right Click Menu

[longwolf]

Hi,
I pretty good with VB6, but haven't worked with VBA.

Here's what I want to do,
I have a list of words that have matching replacement words.

If the user selects and right clicks a word in his WOrd Doc, I want to search my list.
If the selected word is in the list I want to temp add a new option to the right click menu, the option would have a sub menu of the matching words from the list.

Example:

Cut
Copy
Paste
--------------
Optional Words
Repalcement1
Repalcement2
Repalcement3


I've been going through the help files and cobbled this together, but it's not quite it.

I supose I could add the replacment words to the combo, but I wouldn't know how to add them or what sub to add in order to react to a combobox click.


Public WithEvents appWord As Word.Application

Private Sub appWord_WindowBeforeRightClick _
(ByVal Sel As Selection, _
Cancel As Boolean)

Set myBar = CommandBars _
.Add(Name:="Custom", Position:=msoBarPopup, Temporary:=True)
With myBar
.Controls.Add Type:=msoControlButton, ID:=3
.Controls.Add Type:=msoControlComboBox
End With
myBar.ShowPopup

End Sub

[RobDog888]

Looks like your on the right track but your loosing me on what the issue really is and whats going on with this combobox? I thought you needed a popup menu?

[longwolf]

I really wasn't after a combobox, it's just the only code I was able to find in the help files that came close to what I'm after.

It would be better if I could just add a new menu item ("Optional Words") and then add sub items.

But I haven't got a clue where to start.

Alternately I might be able to use the combobox, but I would need to know how to add items to it, and how to react to a click event for the box.

p.s.
I forgot to mention that the code from the 1st post is in a class module named "EventClassModule"

and there is a normal module named Module1 with the following code:

Dim X As New EventClassModule

Sub Register_Event_Handler()
Set X.appWord = Word.Application
End Sub

[RobDog888]

Ok, you should use a different name for your custom menu item - Name:="Custom". Should be something that may not conflict with any reserved words amd related to its purpose.


Dim oCB1 As Office.CommandBarButton

With myBar
Set oCB1 = .Controls.Add Type:=msoControlButton, ID:=3
oCB1.Caption = "My Menu Caption1"
oCB1. ...
oCB1. ...
oCB1. ...
End With