Controlling Standard menus in word via VB

[RealisticGraphics]

Well, let's say you were going to add an item to the File menu. You would do something like this:

Dim RGOpen As CommandBarButton
Set RGOpen = Application.CommandBars("File").Controls.Add(Type:=msoControlButton, Before:=3)
With RGOpen
.Caption = CustomCaption
.OnAction = SubNameOfProcedure
End With