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
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.