KeyBindings.Add, méthode (Word)

Article
04/07/2023

Renvoie un objet KeyBinding qui représente une nouvelle touche de raccourci pour une macro, commandes prédéfinie, la police, insertion automatique entrée, style ou symbole.

Syntaxe

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

expression Obligatoire. Variable qui représente une collection « KeyBindings ».

Parameters

Nom	Requis/Facultatif	Type de données	Description
KeyCategory	Obligatoire	WdKeyCategory	Catégorie d'affectation de touches.
Command	Obligatoire	Chaîne	La commande que la combinaison de touches spécifiée exécute.
KeyCode	Obligatoire	Entier long	Une clé que vous spécifiez à l'aide d'une des constantes WdKey.
KeyCode2	Facultatif	Variant	Deuxième clé que vous spécifiez à l'aide d'une des constantes WdKey.
CommandParameter	Facultatif	Variant	Texte supplémentaire, s'il y a lieu, à ajouter à la commande indiquée par l'argument Commande. Pour plus d'informations, voir les remarques ci-dessous.

Valeur renvoyée

KeyBinding

Remarques

Utilisez 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. (Dans la boîte de dialogue Personnaliser le clavier (menu Outils), l'opération équivalente à l'argument ParamètreCommande consiste à sélectionner un élément de la zone de liste qui s'affiche lorsque vous sélectionnez l'une des commandes suivantes dans la zone Commandes).

Si Command a la valeur suivante	L'argument CommandParameter doit avoir la valeur suivante
Borders, Color ou Shading	Nombre (spécifié sous forme de texte) correspondant à la position du paramètre sélectionné dans la zone de liste qui contient des valeurs, où 0 (zéro) est le premier élément, 1 est le deuxième élément, et ainsi de suite.
Colonnes	Nombre compris entre 1 et 45 (spécifié sous forme de texte) correspondant au nombre de colonnes que vous souhaitez appliquer
Condensed	Taille de texte comprise entre 0,1 et 12,75 points, spécifiée par incréments de 0,05 point (72 points = 2,55 centimètres).
Expanded	Taille de texte comprise entre 0,1 et 12,75 points, spécifiée par incréments de 0,05 point (72 points = 2,55 centimètres).
FileOpenFile	Chemin d'accès et nom du fichier à ouvrir. Si aucun chemin d'accès n'est spécifié, le dossier actif est utilisé.
Font Size	Taille de texte positive, spécifiée par incréments de 0,5 point (72 points = 2,55 centimètres).
Lowered, Raised	Taille de texte comprise entre 1 et 64 points, spécifiée par incréments de 0,5 point (72 points = 2,55 centimètres).
CarSpéciaux	Une chaîne créée en concaténant une instruction Chr() et le nom d'une police de symboles (par exemple, `Chr(167) & "Symbol"`)

Exemple

Cet exemple montre comment ajouter la combinaison de touches CTRL+ALT+W à la commande FileClose. La personnalisation du clavier est enregistrée dans le modèle Normal.

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

Cet exemple ajoute la combinaison de touches ALT + F4 à la police Arial, puis affiche le nombre d'éléments dans la collection KeyBindings. Ensuite, l'exemple efface la combinaison de touches ALT + F4 (renvoyée à sa valeur par défaut) et réaffiche le nombre d'éléments dans la collection KeyBindings.

CustomizationContext = ActiveDocument.AttachedTemplate 
Set myKey = KeyBindings.Add(KeyCategory:=wdKeyCategoryFont, _ 
    Command:="Arial", KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4)) 
MsgBox KeyBindings.Count & " keys in KeyBindings collection" 
myKey.Clear 
MsgBox KeyBindings.Count & " keys in KeyBindings collection"

Cet exemple montre comment ajouter la combinaison de touches CTRL+ALT+S à la commande FontSize afin d'appliquer la taille 8 (points) aux polices.

CustomizationContext = NormalTemplate 
KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _ 
    Command:="FontSize", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _ 
    CommandParameter:="8"

Cet exemple montre comment ajouter la combinaison de touches CTRL+ALT+H au style Heading 1 du document actif.

CustomizationContext = ActiveDocument 
KeyBindings.Add KeyCategory:=wdKeyCategoryStyle, _ 
    Command:="Heading 1", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyH)

Cet exemple montre comment ajouter la combinaison de touches CTRL+ALT+O à l'insertion automatique « Hello ».

CustomizationContext = ActiveDocument 
KeyBindings.Add KeyCategory:=wdKeyCategoryAutoText, _ 
    Command:="Hello", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyO)

Voir aussi

KeyBindings, Collection d'objets

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via