Word-interne Symbole und Befehle |
|
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. 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: 2 online | 154 heute | 3266 diesen Monat | 2155837 insgesamt | Seitenaufrufe: 83 | Letzte Änderung: 24.06.2006 | © 2001-18 Christian Freßdorf | ||||
Der Mensch ist der einzige Primat, der seine Artgenossen ohne biologischen und ökonomischen Grund tötet und quält und der dabei Befriedigung empfindet. Erich Fromm |
powered by phpCMS and PAX |