word vba在Word 新建选项卡组中按钮添加子按钮

要在Word VBA中向新建选项卡组中添加子按钮，可以按照以下步骤进行操作：

1. 打开Word文档，并按下Alt+F11打开VBA编辑器；
2. 在VBA编辑器中，选择“插入”->“用户窗体”->“Ribbon XML”；
3. 在Ribbon XML编辑器中，编写XML代码来创建新的选项卡组和子按钮，例如：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="customTab" label="My Custom Tab">
        <group id="customGroup" label="My Custom Group">
          <button id="customButton" label="My Custom Button"
            onAction="MyCustomButton_Click" size="large" />
          <menu id="customMenu" label="My Custom Menu">
            <button id="customSubMenu1" label="Submenu Item 1"
              onAction="MyCustomSubMenu1_Click" />
            <button id="customSubMenu2" label="Submenu Item 2"
              onAction="MyCustomSubMenu2_Click" />
          </menu>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

4. 在VBA项目中，添加一个新的模块并编写按钮的点击事件处理程序，例如：

Sub MyCustomButton_Click(control As IRibbonControl)
  ' Do something when the button is clicked
End Sub

Sub MyCustomSubMenu1_Click(control As IRibbonControl)
  ' Do something when submenu item 1 is clicked
End Sub

Sub MyCustomSubMenu2_Click(control As IRibbonControl)
  ' Do something when submenu item 2 is clicked
End Sub

5. 在VBA项目中，添加一个新的类模块，并将其命名为“MyRibbon”，以便在XML代码中引用它；
6. 在MyRibbon类模块中，添加一个回调函数以返回Ribbon XML代码，例如：

Public Function GetCustomUI(ByVal RibbonID As String) As String
  GetCustomUI = "<customUI xmlns='http://schemas.microsoft.com/office/2006/01/customui' loadImage='MyImageLoader'>" & _
                "  <ribbon>" & _
                "    <tabs>" & _
                "      <tab id='customTab' label='My Custom Tab'>" & _
                "        <group id='customGroup' label='My Custom Group'>" & _
                "          <button id='customButton' label='My Custom Button'" & _
                "            onAction='MyCustomButton_Click' size='large' />" & _
                "          <menu id='customMenu' label='My Custom Menu'>" & _
                "            <button id='customSubMenu1' label='Submenu Item 1'" & _
                "              onAction='MyCustomSubMenu1_Click' />" & _
                "            <button id='customSubMenu2' label='Submenu Item 2'" & _
                "              onAction='MyCustomSubMenu2_Click' />" & _
                "          </menu>" & _
                "        </group>" & _
                "      </tab>" & _
                "    </tabs>" & _
                "  </ribbon>" & _
                "</customUI>"
End Function

7. 在VBA项目中，添加另一个模块并编写代码来加载Ribbon XML，例如：

Public Sub LoadCustomUI()
  Dim ribbon As IRibbonUI
  Set ribbon = Application.CommandBars("Ribbon"). _
    Controls.Add(msoControlCustom, , "MyRibbon")
  ribbon.Invalidate
End Sub

8. 最后，在Word文档中添加一个宏以调用LoadCustomUI函数，例如：

Sub InitializeCustomUI()
  LoadCustomUI
End Sub

这样就可以在新建选项卡组中添加子按钮了。