如何使用 VBA 导出整个自定义功能区 xml

Question

我正在 Word 中使用 VBA。 我必须有一份我的作品的 txt 文件副本。 我正在保存每个模块/类/表单的内容。

现在，我还需要保存自定义功能区。 我不知道如何访问功能区 xml。 我知道如何操作我的功能区（创建或禁用/启用按钮和其他有趣的事情），但我不知道如何获取整个 xml。

我正在使用 BeforeSave 事件生成 txt 文件（在每次保存之前，我都会制作宏的 txt 副本） - 我也想保存功能区的副本。

有很多如何加载或更改功能区的示例，但是关于使用 VBA 导出现有功能区我找不到任何内容。

Answer 1

尝试来自 Microsoft 的 this 链接。代码核心在这里：

Private Sub AddHighlightRibbon()
Dim ribbonXml As String

ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
ribbonXml = ribbonXml + "  <mso:ribbon>"
ribbonXml = ribbonXml + "    <mso:qat/>"
ribbonXml = ribbonXml + "    <mso:tabs>"
ribbonXml = ribbonXml + "      <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">"
ribbonXml = ribbonXml + "        <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">"
ribbonXml = ribbonXml + "          <mso:button id=""highlightManualTasks"" label=""Toggle Manual Task Color"" "
ribbonXml = ribbonXml + "imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
ribbonXml = ribbonXml + "        </mso:group>"
ribbonXml = ribbonXml + "      </mso:tab>"
ribbonXml = ribbonXml + "    </mso:tabs>"
ribbonXml = ribbonXml + "  </mso:ribbon>"
ribbonXml = ribbonXml + "</mso:customUI>"

ActiveProject.SetCustomUI (ribbonXml)
End Sub