Klasse KeyBindings (Word VBA)
Eine Auflistung von KeyBinding -Objekten, die die benutzerdefinierten Tastenzuweisungen im aktuellen Kontext darstellen. Um eine KeyBindings -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim kbs as KeyBindings
Set kbs = KeyBindings
For Each
Hier ist ein Beispiel für die Verarbeitung der KeyBindings -Elemente in einer Sammlung
Dim kbg As KeyBinding
For Each kbg In KeyBindings
Next kbg
Add
Gibt ein KeyBinding -Objekt zurück, das eine neue Tastenkombination für ein Makro, einen integrierten Befehl, eine Schriftart, einen AutoText-Eintrag, eine Formatvorlage oder ein Symbol darstellt.
Sie können die BuildKeyCode -Methode verwenden, um das Keycode-oder KeyCode2-Argument zu erstellen. In der linken Spalte der folgenden Tabelle finden Sie die Befehle, für die ein Befehlswert erforderlich ist, und in der rechten die jeweilige Beschreibung der CommandParameter dieser Befehle.
Add (KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)
CustomizationContext = NormalTemplate
KeyBindings.Add _
KeyCategory:=wdKeyCategoryCommand, _
Command:="FileClose", _
KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)
Arguments
Hier sind die benannte Argumente :
KeyCategory (WdKeyCategory) - Die Kategorie der Tastenbelegung.
Dies sind mögliche Werte für
Command (String) - Der Befehl, der mithilfe der angegebenen Tastenkombination ausgeführt wird.
KeyCode (Long) - Eine Taste, die Sie mit einer der WdKey-Konstanten angeben.
Optional arguments
Die folgenden Argumente sind optional
KeyCode2 (WdKey) - Eine zweite Taste, die Sie mit einer der WdKey-Konstanten angeben.
Dies sind mögliche Werte für
CommandParameter (String) - Zusätzlicher Text (sofern vorhanden), der für den durch Command angegebenen Befehl erforderlich ist.
ClearAll
Löscht alle benutzerdefinierten Tastenbelegungen und stellt die ursprünglichen Belegungen für Tastenkombinationen in Microsoft Word wieder her.
CustomizationContext = NormalTemplateKeyBindings.ClearAll
Context
Gibt einen Wert vom Typ Object zurück, der den Speicherort für die angegebene Tastenzuordnung darstellt.
Diese Eigenschaft kann ein Dokument, ein Templateoder ein Application -Objekt zurückgeben.
Dim appContext As Application
Set appContext = KeyBindings.Context
Count
Gibt einen Wert vom Typ Long zurück, der die Anzahl der Tastenkombinationen in der Auflistung darstellt.
Dim lngCount As Long
lngCount = KeyBindings.Count
Item
Gibt ein einzelnes KeyBinding -Objekt in einer Auflistung zurück.
Item (Index)
Index: Das einzelne Objekt zurückgegeben werden soll.
Dim kbg As KeyBinding
Set kbg = KeyBindings(Index:=1)
Key
Gibt ein KeyBinding -Objekt zurück, das die angegebene benutzerdefinierte Tastenkombination darstellt.
Wenn die Tastenkombination nicht vorhanden ist, gibt diese Methode Nothingzurück. Sie können die BuildKeyCode -Methode verwenden, um das Keycode-oder KeyCode2-Argument zu erstellen.
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4), _
KeyCategory:=wdKeyCategoryFont, Command:="Arial"
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
KeyBindings.Key(KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4)).Clear
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
Arguments
Ein benanntes Argument
KeyCode (Long) - Eine Taste, die Sie mit einer der WdKey-Konstanten angeben.
Optional arguments
Das folgendes Argument ist optional
KeyCode2 (WdKey) - Eine zweite Taste, die Sie mit einer der WdKey-Konstanten angeben.
Dies sind mögliche Werte für