Application.KeysBoundTo (Word)

Retorna um objeto KeysBoundTo que representa todas as combinações de teclas atribuídas ao item 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

O seguinte argumento é opcional

KeyCategory (WdKeyCategory) - A categoria da combinação de teclas.

Aqui você pode encontrar os valores possíveis para WdKeyCategory

Command (String) - O nome do comando.

Optional arguments

The following argument is optional

CommandParameter (KeyBindings) - Texto adicional, se houver, necessária para o comando especificado pelo comando. Para obter mais informações, consulte a seção "Comentários" no método Add do objeto KeyBindings.