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: 0 online | 0 heute | 0 diesen Monat | 2227150 insgesamt | Seitenaufrufe: 36 | Letzte Änderung: 24.06.2006 | © 2001-18 Christian Freßdorf | ||||
Ich würde lieber angegriffen werden als ignoriert. Das schlimmste, was einem Autor passieren kann, ist, daß die anderen zu seinen Arbeiten schweigen. Samuel Johnson |
powered by phpCMS and PAX |