word vba在Word 的主菜单中新建自定义菜单，"Menu Bar"代表Word XP主菜单的名称

要在Word XP主菜单中创建自定义菜单，可以使用以下VBA代码：

Sub AddCustomMenu()
    '定义变量
    Dim MenuBar As Object
    Dim NewMenu As Object
    Dim MenuButton As Object
    
    '获取主菜单
    Set MenuBar = CommandBars("Menu Bar")
    
    '创建新菜单
    Set NewMenu = MenuBar.Controls.Add(Type:=msoControlPopup, Before:=6)
    NewMenu.Caption = "My Custom Menu"
    
    '添加菜单项
    Set MenuButton = NewMenu.Controls.Add(Type:=msoControlButton)
    MenuButton.Caption = "Menu Item 1"
    '添加点击事件
    MenuButton.OnAction = "MyMacro1"
    
    Set MenuButton = NewMenu.Controls.Add(Type:=msoControlButton)
    MenuButton.Caption = "Menu Item 2"
    '添加点击事件
    MenuButton.OnAction = "MyMacro2"
    
End Sub

这段代码会在Word XP的主菜单中添加一个名为"My Custom Menu"的自定义菜单，并在其中添加两个菜单项"Menu Item 1"和"Menu Item 2"。你可以在代码中修改菜单的名称和菜单项的名称，以及为菜单项添加自己的宏。