Klasse KeysBoundTo (Word VBA)
Eine Auflistung von KeyBinding -Objekten, die einem Befehl, einer Formatvorlage, einem Makro oder einem anderen Element im aktuellen Kontext zugewiesen sind. Um eine KeysBoundTo -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim kbt as KeysBoundTo
Set kbt = Dim strCommand As String: strCommand =
KeysBoundTo(KeyCategory:=wdKeyCategoryAutoText, Command:=strCommand)
Command
Gibt einen Wert vom Typ String zurück, der den einer bestimmten Tastenkombination zugewiesenen Befehl darstellt.
Dim kbLoop As KeyBinding
For Each kbLoop In KeyBindings
If kbLoop.KeyCategory = wdKeyCategoryFont Then
Count = Count + 1
MsgBox kbLoop.Command & vbCr & kbLoop.KeyString
End If
Next kbLoop
If Count = 0 Then MsgBox "Keys haven't been assigned to fonts"
CommandParameter
Gibt den Befehlsparameter zurück, welcher der angegebenen Tastenkombination zugewiesen ist.
Informationen zu Befehlen, die Parameter übernehmen, finden Sie unter der Add -Methode.
Dim kbNew As KeyBinding
Set kbNew = KeyBindings.Add(KeyCategory:=wdKeyCategoryCommand, _
Command:="FontSize", _
KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _
CommandParameter:="8")
MsgBox kbNew.Command & Chr$(32) & kbNew.CommandParameter _
& vbCr & kbNew.KeyString
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.
Sub TestContext1()
Dim kbMacro1 As KeysBoundTo
Set kbMacro1 = KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
Command:="Macro1")
MsgBox kbMacro1.Context.Name
End Sub
Count
Gibt einen Wert vom Typ Long zurück, der die Anzahl der Schlüssel in der Auflistung darstellt.
Dim lngCount As Long
lngCount = KeysBoundTo.Count
Item
Gibt ein einzelnes KeyBinding -Objekt in einer Auflistung zurück.
Item (Index)
Index: Das einzelne Objekt zurückgegeben werden soll.
Dim kbgKeysBoundTo As KeyBinding
Set kbgKeysBoundTo = KeysBoundTo(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.
Dim lngKeyCode As Long: lngKeyCode =
Dim kbgKey As KeyBinding
Set kbgKey = KeysBoundTo.Key(KeyCode:=lngKeyCode)
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
KeyCategory
Gibt den Elementtyp zurück, der einer bestimmten Tastenkombination zugewiesen wurde. Dies sind mögliche Werte für
Dim wkcKeyCategory As WdKeyCategory
wkcKeyCategory = KeysBoundTo.KeyCategory