Application.KeysBoundTo (Word)

Devuelve un objeto KeysBoundTo que representa todas las combinaciones de teclas asignadas al elemento especificado.

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

Estos son los argumentos con nombre :

KeyCategory (WdKeyCategory) - Categoría de la combinación de teclas.

Aquí puede ver valores posibles para WdKeyCategory

Command (String) - Nombre del comando.

Optional arguments

Los siguientes argumentos son opcionales

CommandParameter (KeyBindings) - Texto adicional, si lo hay, requerido para el comando especificado por Command.