Classe KeysBoundTo (Word VBA)
Collection d’objets KeyBinding affectés à une commande, un style, une macro ou un autre élément dans le contexte actuel. Pour utiliser une variable de classe KeysBoundTo, elle doit d'abord être instanciée, par exemple
Dim kbt as KeysBoundTo
Set kbt = Dim strCommand As String: strCommand =
KeysBoundTo(KeyCategory:=wdKeyCategoryAutoText, Command:=strCommand)
Command
Renvoie une valeur de type String qui représente la commande associée à la combinaison de touches spécifiée.
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
Renvoie le paramètre de commande affecté à la touche de raccourci spécifiée.
Pour plus d'informations sur les commandes acceptant des paramètres, voir la méthode Add.
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
Renvoie un Object qui représente l'emplacement de stockage de la combinaison de touches spécifiée.
Cette propriété peut renvoyer un objet document, templateou application .
Sub TestContext1()
Dim kbMacro1 As KeysBoundTo
Set kbMacro1 = KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
Command:="Macro1")
MsgBox kbMacro1.Context.Name
End Sub
Count
Renvoie un type long qui représente le nombre de clés dans la collection.
Dim lngCount As Long
lngCount = KeysBoundTo.Count
Item
Renvoie un objet KeyBinding spécifique appartenant à une collection.
Item (Index)
Index: Objet spécifique qui doit être renvoyé.
Dim kbgKeysBoundTo As KeyBinding
Set kbgKeysBoundTo = KeysBoundTo(Index:=1)
Key
Renvoie un objet KeyBinding qui représente la combinaison de touches personnalisée spécifiée.
Si la combinaison de touches n’existe pas, cette méthode renvoie la valeur Nothing. Vous pouvez recourir à la méthode BuildKeyCode pour créer l'argument KeyCode ou KeyCode2.
Dim lngKeyCode As Long: lngKeyCode =
Dim kbgKey As KeyBinding
Set kbgKey = KeysBoundTo.Key(KeyCode:=lngKeyCode)
Arguments
Un argument nommé
KeyCode (Long) - Une clé que vous spécifiez à l'aide d'une des constantes WdKey.
Optional arguments
Les arguments suivants sont facultatifs
KeyCode2 (WdKey) - Deuxième clé que vous spécifiez à l'aide d'une des constantes WdKey.
Ici on trouve valeurs possible pour
KeyCategory
Renvoie le type d'élément affecté à la combinaison de touches spécifiée. Ici on trouve valeurs possible pour
Dim wkcKeyCategory As WdKeyCategory
wkcKeyCategory = KeysBoundTo.KeyCategory