Wie exportiere ich ganze benutzerdefinierte Farbband-XML mit VBA

Question

Ich arbeite mit VBA in Word. Ich muss eine Kopie meiner Arbeit in TXT-Dateien haben. Ich speichere Inhalt von jedem Modul/Klasse/Formular.

Jetzt muss ich auch benutzerdefinierte Farbband speichern. Ich weiß nicht, wie man auf das Ribbon xml zugreifen kann. Ich weiß, wie man meine Bänder manipuliert (Erstellen oder Deaktivieren/Aktivieren von Schaltflächen und andere lustige Dinge), aber ich weiß nicht, wie man ganze XML bekommen.

Ich erzeuge meine TXT-Dateien mit BeforeSave-Ereignis (vor jedem Speichern mache ich eine TXT-Kopie meiner Makros) - Ich möchte auch Kopie des Bandes speichern.

Es gibt viele Beispiele zum Laden oder Ändern von Farbbändern, aber zum Exportieren von vorhandenen Farbbändern mit VBA kann ich nichts finden.

Answer 1

Versuchen Sie this Link von Microsoft. Der Kern des Codes ist hier:

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