Partager via

Propriété Application.KeyBindings (Word)

  • Article

Renvoie une collection KeyBindings qui représente les affectations de touches personnalisées.

Syntaxe

expression. KeyBindings

expressionUne variable qui représente un objetApplication.

Exemple

Cet exemple montre comment affecte la combinaison de touches CTRL + ALT + W à la commande FileClose. 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

Objet Application

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.