2
www.ChF-Online.de  

Word-interne Symbole und Befehle

   Neuigkeiten
   API-Aufrufe in VBA
   VBA2HTML
   Word
 Menübefehle
 integrierte Dialogfelder
 WdDialogs-Konstanten
 WdDialogs-Parameter
 WdColor-Konstanten
 Word-interne Symbole
aktiv aktiv Symbole und Befehle
 Beschriftungsverzeichnisse
   Word-VBA
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
Getestet unter Word2000Getestet unter XP  
Makro/Datei speichern
Print

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.


 Besucher: 0 online  |  0 heute  |  0 diesen Monat  |  2200404 insgesamt | Seitenaufrufe: 37   Letzte Änderung: 24.06.2006 © 2001-18 Christian Freßdorf
  Wer sich an das Absurde gewöhnt, findet sich in unserer Zeit zurecht.
Eugène Ionescu
 powered by phpCMS and PAX