Propriété Global.KeyBindings (Word)
Renvoie une collection KeyBindings qui représente les affectations de touches personnalisées.
Syntaxe
expression. KeyBindings
expression Obligatoire. Variable qui représente un objet « Global ».
Exemple
Cet exemple montre comment affecter la combinaison de touches CTRL+ALT+W à la commande FileClose (FichierFermer). La personnalisation du clavier est enregistrée dans le modèle Normal.
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, _
wdKeyW), KeyCategory:=wdKeyCategoryCommand, _
Command:="FileClose"
Cet exemple montre comment insérer le nom de la commande et la combinaison de touches pour chaque élément dans la collection KeyBindings.
Dim kbLoop As KeyBinding
CustomizationContext = NormalTemplate
For Each kbLoop In KeyBindings
Selection.InsertAfter kbLoop.Command & vbTab _
& kbLoop.KeyString & vbCr
Selection.Collapse Direction:=wdCollapseEnd
Next kbLoop
Voir aussi
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.