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

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

1 个答案: