0

WordでVBAを扱っています。私の作品のコピーを txt ファイルに保存する必要があります。すべてのモジュール/クラス/フォームのコンテンツを保存しています。

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

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

リボンをロードまたは変更する方法の例はたくさんありますが、VBA を使用して既存のリボンをエクスポートする方法については何も見つかりません。

4

1 に答える 1

0

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)

サブ終了

于 2016-11-25T15:31:26.033 に答える