OpenXML - 限制自定义 MS-Word 功能区中组中显示的按钮数量

Question

我想限制 Word 2007 中功能区组中的按钮数量，因为按钮是根据数据库中的数据生成的。请参阅下图。 。我希望功能区中的数量有限，例如 6 个左右，并带有一个对话框启动器，单击该启动器将打开一个显示所有按钮的窗格。有没有办法做同样的事情。有人还可以告诉我当有人单击对话框启动器时如何创建该窗格吗？

Answer 1

我的方法是将功能区中的一些（例如 6 个）项目作为按钮加载，并将所有项目添加为文档中的 CustomXMlPart。在文档中，我添加了一个包含列表框的用户控件。在功能区加载中，我从 CustomXmlPart 获取所有项目并将它们放入列表框中。在对话框启动器按钮上单击，我显示/隐藏用户控件以显示列表中的所有项目。

以下是详细步骤：-

a) 从数据库中获取所有项目并将其保留在集合中。
b) 使用上述集合中的 6 个按钮生成如下所示的功能区 XML：-

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonLoad">
  <ribbon>
    <tabs>
      <tab id="tabMyTab" label="MyTab">
        <group id="grpItems" label="My items">
          <button id="test1" label="test1"/>
          <button id="test2" label="test2"/>
          <button id="test3" label="test3"/>
          <button id="test4" label="test4"/>
          <button id="test5" label="test5"/>
          <button id="test6" label="test6"/>
          <dialogBoxLauncher>
            <button id="btnShowAllItems" label="Show all custom tags" onAction="ShowAllItems" />
          </dialogBoxLauncher>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

c) 将集合作为 CustomXMLPart 添加到文档中：-

static void AddCustomTableXmlPart(WordprocessingDocument document)
{
            MainDocumentPart mainDocumentPart = document.MainDocumentPart;
            XDocument customTagsXml = GetAllItemsAsCustomXML();

            if (mainDocumentPart.GetPartsCountOfType<CustomXmlPart>() > 0)
                mainDocumentPart.DeleteParts<CustomXmlPart>(mainDocumentPart.CustomXmlParts);

            //Add a new customXML part and then add content
            var customXmlPart = mainDocumentPart.AddCustomXmlPart(CustomXmlPartType.CustomXml);

            //copy the XML into the new part...
            using (var ts = new StreamWriter(customXmlPart.GetStream()))
            {
                ts.Write(customTagsXml.ToString());
                ts.Flush();
            }
 }

d) 转到 docm 文件的开发人员选项卡，将 UserForm 添加到项目中并向其添加一个列表框。编写一个子例程，该子例程将加载已添加到文档中的 CustomXMlPart 中的项目，并将这些项目添加到用户窗体中的列表框中。如下所示：-

Sub LoadItems()
     Dim totalItemsCount As Integer
     totalItemsCount = ActiveDocument.CustomXMLParts(ActiveDocument.CustomXMLParts.Count).SelectNodes("//Items")(1).ChildNodes.Count
     Dim item As String

     For i = 1 To totalItemsCount
        item = ActiveDocument.CustomXMLParts(ActiveDocument.CustomXMLParts.Count).SelectNodes("//Items")(1).ChildNodes(i).text
        ' I had to remove the spaced before adding it as It was throwing errors
        item = Replace(item, " ", Empty)

        If Len(item) > 1 Then
        ItemUserControl.lstItems.AddItem pvargItem:item
        End If
     Next i
End Sub

e) 定义名为 RibbonLoad 的子项，该子项从功能区的 onLoad 事件中调用（检查 RibbonXML）。从此 RibbonLoad 子程序调用 LoadItems 子程序。

Sub RibbonLoad(ribbon As IRibbonUI)
LoadItems
End Sub

f) 定义以下子控件，它将显示/隐藏用户控件。这是在dialogBoxLauncher 按钮的onAction 上调用的。 （请参阅 RibbonXML）

Sub ShowAllItemss(control As IRibbonControl)
    If ItemsUserControl.Visible = False Then
         If ItemsUserControl.lstItems.ListCount = 0 Then
            LoadCustomTags
         End If
         ItemsUserControl.Show
    Else
         ItemsUserControl.Hide
    End If
End Sub