WD98: How to Add a Drop-down Menu to the Main Menu Bar

   Sub AddMenuItem()

      Dim oMainMenuBar As Object
      Dim oNewMenu As Object
      Dim oSubMenu As Object

      ' Save changes to menu bars in the Normal (default) Template.
      CustomizationContext = Application.NormalTemplate

      ' Specify the CommandBar to add to. In this example, the New Menu
      ' item is added to the Word for Windows default menu bar.
      Set oMainMenuBar = CommandBars.Item("Menu Bar")

      ' Create New Menu object and add it to the built-in menu bar.
      Set oNewMenu = oMainMenuBar.Controls.Add(Type:=msoControlPopup)
      oNewMenu.Caption = "New Menu Item"

      ' Create a submenu item for the New Menu menu item.
      Set oSubMenu = oNewMenu.Controls.Add(Type:=msoBarTypeMenuBar)

      With oSubMenu

         ' Give the submenu item a reference name and display text.
         .Caption = "Sub Menu"

         ' Specify macro to run when user clicks the submenu item.
         .OnAction = "NewMenuMacro"

      End With

   End Sub
				

   Sub NewMenuMacro()

      Dim myMenuItem as Object
      Set myMenuItem = CommandBars("Menu Bar").Controls("New Menu Item")
      MsgBox myMenuItem.Caption

   End Sub