Application.KeysBoundTo (Word)

Renvoie un objet KeysBoundTo qui représente toutes les combinaisons de touches affectées à l’élément spécifié.

KeysBoundTo (KeyCategory, Command, CommandParameter)

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

Arguments

Les arguments nommés :

KeyCategory (WdKeyCategory) - Catégorie de la combinaison de touches.

Ici on trouve valeurs possible pour WdKeyCategory

Command (String) - Nom de la commande.

Optional arguments

Les arguments suivants sont facultatifs

CommandParameter (KeyBindings) - Texte supplémentaire, le cas échéant, requis pour la commande spécifiée par la commande.