0

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

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

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

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

4

1 回答 1

0

Try this link from Microsoft. The core of the code is here:

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

于 2016-11-25T15:31:26.033 回答