Classe KeyBinding (Word VBA)

La classe KeyBinding représente une affectation de touches personnalisée dans le contexte actuel.

La procédure principale de la classe KeyBinding est KeyBindings.Add

Set

Pour utiliser une variable de classe KeyBinding, elle doit d'abord être instanciée, par exemple

Dim kbg as KeyBinding
Set kbg = Dim lngKeyCode As Long: lngKeyCode = 
FindKey(KeyCode:=lngKeyCode)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe KeyBinding : Application.FindKey, KeyBindings.Add, KeyBindings.Item, KeyBindings.Key, KeysBoundTo.Item, KeysBoundTo.Key, Application.KeyBindings et Application.KeysBoundTo

For Each

Voici un exemple de traitement des éléments KeyBinding dans une collection

Dim lngCode As Long 
Dim kbg As KeyBinding 
CustomizationContext = NormalTemplate 
lngCode = BuildKeyCode(wdKeyAlt, wdKeyControl, wdKeyW) 
For Each kbg In KeyBindings 
 If lngCode = kbg.KeyCode Then MsgBox kbg.KeyString & " is already in use" 
Next kbg

Méthodes

C'est la méthode principale de la classe KeyBinding

KeyBindings.Add - Renvoie un objet KeyBinding qui représente une nouvelle touche de raccourci pour une macro, une commande prédéfinie, une police, une insertion automatique, un style ou un symbole.

Dim strCommand As String: strCommand = 
Dim lngKeyCode As Long: lngKeyCode =  
Dim kbg As KeyBinding
Set kbg = KeyBindings.Add(KeyCategory:=wdKeyCategoryAutoText, Command:=strCommand, KeyCode:=lngKeyCode)

Autre Méthodes

Rebind - Affecte à une autre commande la combinaison de touches spécifiée.

Dim strCommand As String: strCommand =  
FindKey.Rebind KeyCategory:=wdKeyCategoryAutoText, Command:=strCommand

KeyBindings.Key - Renvoie un objet KeyBinding qui représente la combinaison de touches personnalisée spécifiée.

Dim lngKeyCode As Long: lngKeyCode =  
Dim kbgKey As KeyBinding
Set kbgKey = KeyBindings.Key(KeyCode:=lngKeyCode)

KeysBoundTo.Key - Renvoie un objet KeyBinding qui représente la combinaison de touches personnalisée spécifiée.

Dim lngKeyCode As Long: lngKeyCode =  
Dim kbgKey As KeyBinding
Set kbgKey = KeysBoundTo.Key(KeyCode:=lngKeyCode)

Propriétés

Command Renvoie la commande associée à la combinaison de touches spécifiée.

Dim strCommand As String
strCommand = FindKey.Command

CommandParameter Renvoie le paramètre de commande affecté à la touche de raccourci spécifiée.

Dim strCommandParameter As String
strCommandParameter = FindKey.CommandParameter

Context Renvoie un Object qui représente l'emplacement de stockage de la combinaison de touches spécifiée.

Dim docContext As Document
Set docContext = FindKey.Context

KeyCategory Renvoie le type d'élément affecté à la combinaison de touches spécifiée.

Dim wkcKeyCategory As WdKeyCategory
wkcKeyCategory = FindKey.KeyCategory

KeyCode Renvoie un numéro unique pour la première clé dans la combinaison de touches spécifiée.

Dim lngKeyCode As Long
lngKeyCode = FindKey.KeyCode

KeyCode2 Renvoie un numéro unique pour la deuxième clé dans la combinaison de touches spécifiée.

Dim lngKeyCode2 As Long
lngKeyCode2 = FindKey.KeyCode2

KeyString Renvoie la combinaison de touches correspond aux touches spécifiées (par exemple, CTRL + MAJ + A).

Dim strKeyString As String
strKeyString = FindKey.KeyString

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet KeyBinding spécifié.

Dim objParent As Object
Set objParent = FindKey.Parent

Protected True si vous ne pouvez pas modifier la combinaison de touches spécifiée dans la boîte de dialogue Personnaliser le clavier.

Dim booProtected As Boolean
booProtected = FindKey.Protected

KeyBindings.Context Renvoie un Object qui représente l'emplacement de stockage de la combinaison de touches spécifiée.

Dim appContext As Application
Set appContext = KeyBindings.Context

KeyBindings.Count Renvoie un type long qui représente le nombre de combinaisons de touches dans la collection.

Dim lngCount As Long
lngCount = KeyBindings.Count

KeyBindings.Parent Renvoie un Object qui représente l'objet parent de l'objet KeyBindings spécifié.

Dim objParent As Object
Set objParent = KeyBindings.Parent

KeysBoundTo.Command Renvoie une valeur de type String qui représente la commande associée à la combinaison de touches spécifiée.

Dim strCommand As String
strCommand = KeysBoundTo.Command

KeysBoundTo.CommandParameter Renvoie le paramètre de commande affecté à la touche de raccourci spécifiée.

Dim strCommandParameter As String
strCommandParameter = KeysBoundTo.CommandParameter

KeysBoundTo.Context Renvoie un Object qui représente l'emplacement de stockage de la combinaison de touches spécifiée.

Dim docContext As Document
Set docContext = KeysBoundTo.Context

KeysBoundTo.Count Renvoie un type long qui représente le nombre de clés dans la collection.

Dim lngCount As Long
lngCount = KeysBoundTo.Count

KeysBoundTo.KeyCategory Renvoie le type d'élément affecté à la combinaison de touches spécifiée.

Dim wkcKeyCategory As WdKeyCategory
wkcKeyCategory = KeysBoundTo.KeyCategory

KeysBoundTo.Parent Renvoie un Object qui représente l'objet parent de l'objet KeysBoundTo spécifié.

Dim objParent As Object
Set objParent = KeysBoundTo.Parent