' Menüpunkt beim Start erzeugen
Private Sub Document_Open()
Dim MenuControl As CommandBarControl
Set MenuControl = Application.CommandBars.ActiveMenuBar. _
                  Controls.Add(Type:=msoControlPopup)
   With MenuControl
      .Caption = "&Mein Menu"
      .OnAction = "Meine_Prozedur"
   End With
End Sub

' Zugehörige Prozedur
Sub Meine_Prozedur()
   MsgBox "Hallo Welt"
End Sub

' Menüpunkt beim Schließen entfernen
Private Sub Document_Close()
   CommandBars("Menu Bar").Controls("&Mein Menu").Delete
End Sub