Classe KeyBindings (Word VBA)

Collection d’objets KeyBinding qui représentent les affectations de touches personnalisées dans le contexte actuel. Pour utiliser une variable de classe KeyBindings, elle doit d'abord être instanciée, par exemple


Dim kbs as KeyBindings
Set kbs = KeyBindings

For Each

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


Dim kbg As KeyBinding
For Each kbg In KeyBindings
	
Next kbg

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.

Vous pouvez recourir à la méthode BuildKeyCode pour créer l'argument KeyCode ou KeyCode2. Dans le tableau suivant, la colonne de gauche contient les commandes qui nécessitent une valeur, et la colonne de droite décrit ce que vous devez faire pour spécifier CommandParameter pour chacune de ces commandes.

Add (KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)


CustomizationContext = NormalTemplate 
KeyBindings.Add _ 
    KeyCategory:=wdKeyCategoryCommand, _ 
    Command:="FileClose", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)

Arguments

Les arguments nommés :

KeyCategory (WdKeyCategory) - Catégorie d'affectation de touches.

Ici on trouve valeurs possible pour WdKeyCategory

Command (String) - La commande que la combinaison de touches spécifiée exécute.

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 WdKey

CommandParameter (String) - Texte supplémentaire, s'il y a lieu, à ajouter à la commande indiquée par l'argument Commande.

ClearAll

Efface toutes les affectations de touches personnalisées et rétablit les affectations de touches Microsoft Word d’origine.


CustomizationContext = NormalTemplateKeyBindings.ClearAll

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 .


Dim appContext As Application
Set appContext = KeyBindings.Context

Count

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


Dim lngCount As Long
lngCount = KeyBindings.Count

Item

Renvoie un objet KeyBinding spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.


Dim kbg As KeyBinding
Set kbg = KeyBindings(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.

Key (KeyCode, KeyCode2)


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"