VBAを使用してカスタムカスタムリボンxmlをエクスポートする方法

Question

WordでVBAを使用しています。 私は自分の作品のコピーをtxtファイルで持っていなければなりません。 私はすべてのモジュール/クラス/フォームの内容を保存しています。

今、カスタムリボンも保存する必要があります。 リボンxmlにアクセスする方法がわかりません。 私はリボンを操作する方法を知っています（ボタンやその他の面白いことを作成/無効/有効にします）が、全体のXMLを取得する方法はわかりません。

BeforeSaveイベントを使用してtxtファイルを生成しています（保存するたびに、マクロのtxtコピーを作成する前に） - リボンのコピーも保存したいと思います。

リボンを読み込んだり変更する方法はたくさんありますが、VBAを使用して既存のリボンを書き出す方法については何も見つかりません。

Answer 1

Try this Microsoftからのリンク。コードの核心はここにある：

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の