Propriedade Application.KeyBindings (Word)

Retorna uma coleção KeyBindings que representa atribuições de teclas personalizadas, que incluem um código de tecla, uma categoria de tecla e um comando.

Sintaxe

expression. KeyBindings

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

Exemplo

Este exemplo atribui a combinação de teclas CTRL + ALT + W ao comando FileClose. Essa personalização do teclado é salva no modelo Normal.

CustomizationContext = NormalTemplate 
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, _ 
 wdKeyW), KeyCategory:=wdKeyCategoryCommand, _ 
 Command:="FileClose"

Este exemplo insere o nome do comando e a seqüência de combinação de teclas para cada item da coleção KeyBindings.

Dim kbLoop As KeyBinding 
 
CustomizationContext = NormalTemplate 
For Each kbLoop In KeyBindings 
 Selection.InsertAfter kbLoop.Command & vbTab _ 
 & kbLoop.KeyString & vbCr 
 Selection.Collapse Direction:=wdCollapseEnd 
Next kbLoop

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.