在word中動態創建菜單并處理菜單點擊事件的代碼

Sub Create_Menu()
    Const Menu_Name As String = "My New Main_Menu"
    Dim Before_number As Integer
    Dim X As Integer

    On Error Resume Next
    CommandBars("Menu Bar").Controls(Menu_Name).Delete '刪除最后菜單
    Before_number = CommandBars("Menu Bar").Controls.Count + 1

    Err.Clear
    X = 1        '刪除歷史自定義菜單
    Do Until Err.Number <> 0
        CommandBars("Custom Popup " & X).Delete
        X = X + 1
    Loop
    Err.Clear
    
    CommandBars("Menu Bar").Controls.Add Type:=msoControlPopup, Before:=Before_number
    CommandBars("Menu Bar").Controls(Before_number).Caption = Menu_Name
    For X = 1 To 10 '這里可以加入數據庫的訪問代碼
        CommandBars("Custom Popup 1").Controls.Add Type:=msoControlButton, Before:=X
        CommandBars("Custom Popup 1").Controls(X).Caption = "吸海垂虹" & X
        CommandBars("Custom Popup 1").Controls(X).OnAction = "NewMacros.Proc_Menu"
    Next

End Sub

Sub Proc_Menu() '這里可以加入菜單的處理代碼
    MsgBox  CommandBars.ActionControl.Caption
End Sub

原文轉自：http://www.anti-gravitydesign.com