KeyBinding.Rebind, méthode (Word)
Affecte à une autre commande la combinaison de touches spécifiée.
Syntaxe
expression. Rebind
( _KeyCategory_
, _Command_
, _CommandParameter_
)
expression Obligatoire. Variable qui représente un objet « KeyBinding ».
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
KeyCategory | Obligatoire | WdKeyCategory | Catégorie des touches de la combinaison. |
Commande | Obligatoire | String | Nom de la commande spécifiée. |
CommandParameter | Facultatif | Variant | Texte supplémentaire, s'il y a lieu, à ajouter à la commande indiquée par l'argument Commande. Pour plus d’informations sur les valeurs de cet argument, consultez la méthode Add . |
Exemple
Cet exemple montre comment réaffecter la combinaison de touches CTRL+MAJ+S à la commande FichierEnregistrerSous.
Dim kbTemp As KeyBinding
CustomizationContext = NormalTemplate
Set kbTemp = _
FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyS))
kbTemp.Rebind KeyCategory:=wdKeyCategoryCommand, _
Command:="FileSaveAs"
Cet exemple montre comment réaffecter à la macro « Macro1 » l'ensemble des touches affectées à la macro « ReportMacro ».
Dim kbLoop As KeyBinding
CustomizationContext = ActiveDocument.AttachedTemplate
For Each kbLoop In _
KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
Command:="Macro1")
kbLoop.Rebind KeyCategory:=wdKeyCategoryMacro, _
Command:="ReportMacro"
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour