在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