原创 在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).Dele