Propriedade Application.KeysBoundTo (Word)

Retorna um objeto KeysBoundTo que representa todas as combinações de teclas atribuídas ao item especificado.

Sintaxe

expression. KeysBoundTo( _KeyCategory_ , _Command_ , _CommandParameter_ )

expressão Uma variável que representa um Aplicativo objeto. Opcional.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
KeyCategory	Obrigatório	WdKeyCategory	A categoria da combinação de teclas.
Command	Obrigatório	String	O nome do comando.
CommandParameter	Opcional	Variant	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.

Exemplo

Este exemplo exibe todas as combinações de teclas atribuídas ao comando FileOpen no modelo anexado ao documento ativo.

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

Este exemplo remove todas as atribuições de teclas de Macro1 no modelo Normal.

Dim aKey As KeyBinding 
 
CustomizationContext = NormalTemplate 
For Each aKey In _ 
 KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _ 
 Command:="Macro1") 
 aKey.Disable 
Next aKey

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.