Das größte Problem bei der Verwendung der Word-internen Symbole und Befehle ist die Ermittlung der Befehls-ID. Wärend die .FaceID das Symbol z.B. für den Menüeintrag festlegt, bestimmt die .ID-Eigenschaft eines CommandBarControls die interne Funktion.

Das folgende Beispiel erstellt einen neuen Menüeintrag "Formatvorlagen" und fügt diesem den Eintrag "Überschrift 1 übernehmen" (ID=2322) hinzu.
Dieser Menüeintrag entspricht vollstädnig der Zuweisung der Überschrift 1 zu dem Absatz.

On Error Resume Next 
Dim cbmnu As CommandBar 
Dim ctlcbmnu As CommandBarControl 
Dim ctlentry1 As CommandBarControl 
Dim strFV As Style
Set cbmnu = CommandBars("Menu Bar")
Set ctlcbmnu = cbmnu.Controls("Formatvorlagen")
If ctlcbmnu Is Nothing Then 
  Set ctlcbmnu = cbmnu.Controls.Add(msoControlPopup, 1)
  ctlcbmnu.Caption = "Formatvorlagen"
End If 
Set ctlentry1 = cbmnu.FindControl(ID:=2322, recursive:=True)
If ctlentry1 Is Nothing Then 
  Set ctlentry1 = ctlcbmnu.Controls.Add(Type:=msoControlButton, ID:=2322)
  ctlentry1.Tag = "Überschrift1"
  ctlentry1.Caption = ctlentry1.Caption & " ID:" & CStr(ctlentry1.ID)
End If 
On Error GoTo 0
End Sub 

Allerdings lassen sich auf diese Weise nicht alle Word-Befehle über die entsprechende ID verwenden. So finden sich nur die ersten 3 Überschriften in der ID-Liste (warum auch immer..).

Um nicht jedesmal erst alle Symbole zu durchlaufen, bis man das richtige gefunden hat, habe ich eine Übersicht zusammengestellt, in der die Symbole aller internen Symbolleisten mit ihren IDs aufgelistet sind. Über das Speichern-Symbol erhaltet Ihr die Übersicht als PDF-Datei.