Propriété Application.KeysBoundTo (Word)
Renvoie un objet KeysBoundTo qui représente toutes les combinaisons de touches affectées à l'élément spécifié.
Syntaxe
expression. KeysBoundTo( _KeyCategory_ , _Command_ , _CommandParameter_ )
expressionUne variable qui représente un objetApplication. Facultatif.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| KeyCategory | Obligatoire | WdKeyCategory | Catégorie de la combinaison de touches. |
| Command | Obligatoire | Chaîne | Nom de la commande. |
| CommandParameter | Facultatif | Variant | Texte supplémentaire, le cas échéant, requis pour la commande spécifiée par la commande. Pour plus d'informations, voir la section « Remarques » dans la méthode Add de l'objet KeyBindings. |
Exemple
Cet exemple montre comment afficher toutes les combinaisons de touches affectées à la commande FileOpen (FichierOuvrir) dans le modèle attaché au document actif.
Dim kbLoop As KeyBinding
Dim strOutput As String
CustomizationContext = ActiveDocument.AttachedTemplate
For Each kbLoop In _
KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, _
Command:="FileOpen")
strOutput = strOutput & kbLoop.KeyString & vbCr
Next kbLoop
MsgBox strOutput
Cet exemple montre comment supprimer dans le modèle Normal toutes les affectations de touches de la macro nommée « Macro1 ».
Dim aKey As KeyBinding
CustomizationContext = NormalTemplate
For Each aKey In _
KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
Command:="Macro1")
aKey.Disable
Next aKey
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.