word vba创建菜单栏和子菜单

以下是在Word VBA中创建菜单栏和子菜单的示例代码：

Sub CreateMenuBarAndSubMenu()
    '创建菜单栏
    Dim newMenuBar As CommandBar
    Set newMenuBar = CommandBars.Add("MyMenuBar", msoBarTop, False, True)

    '创建子菜单
    Dim newMenu As CommandBarPopup
    Set newMenu = newMenuBar.Controls.Add(msoControlPopup)

    '设置子菜单属性
    newMenu.Caption = "MySubMenu"
    newMenu.Tag = "MySubMenuTag"

    '添加子菜单项
    Dim newMenuItem As CommandBarButton
    Set newMenuItem = newMenu.Controls.Add(msoControlButton)
    newMenuItem.Caption = "MenuItem1"
    newMenuItem.Tag = "MenuItem1Tag"
    '添加子菜单项的点击事件处理程序
    AddHandler newMenuItem.Click, AddressOf MenuItem1_Click

    '添加第二个子菜单项
    Set newMenuItem = newMenu.Controls.Add(msoControlButton)
    newMenuItem.Caption = "MenuItem2"
    newMenuItem.Tag = "MenuItem2Tag"
    '添加第二个子菜单项的点击事件处理程序
    AddHandler newMenuItem.Click, AddressOf MenuItem2_Click

End Sub

'子菜单项1的点击事件处理程序
Sub MenuItem1_Click()
    MsgBox "You clicked MenuItem1"
End Sub

'子菜单项2的点击事件处理程序
Sub MenuItem2_Click()
    MsgBox "You clicked MenuItem2"
End Sub

注意：以上代码需要在Word VBA编辑器中运行。可以通过单击“开发工具”选项卡中的“Visual Basic”按钮打开VBA编辑器。