如何使用VBA導出整個自定義功能區xml

Question

我正在使用Word中的VBA。 我必須在txt文件中有我的工作副本。 我正在保存每個模塊/類/表單的內容。

現在，我還需要保存自定義功能區。 我不知道如何訪問ribbon 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) 

末次