Método KeyBindings.Add (Word)

Retorna um objeto KeyBinding que representa uma nova tecla de atalho para uma macro, comando interno, fonte, AutoTexto entrada, estilo ou símbolo.

Sintaxe

expressão. Adicionar (KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)

expressão Obrigatório. Uma variável que representa uma coleção 'KeyBindings'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
KeyCategory	Obrigatório	WdKeyCategory	A categoria da atribuição de chave.
Command	Obrigatório	String	O comando que a combinação de teclas especificada executa.
KeyCode	Obrigatório	Long	Uma tecla que você especifica usando uma das seguintes constantes WdKey.
KeyCode2	Opcional	Variant	Uma segunda tecla que você especifica usando uma das seguintes constantes WdKey.
CommandParameter	Opcional	Variant	Texto adicional, caso haja algum, necessário para o comando especificado por Command. Para ver detalhes, consulte a seção "Comentários".

Valor de retorno

Keybinding

Comentários

Use o método BuildKeyCode para criar o argumento KeyCode ou KeyCode2.

Na tabela a seguir, a coluna esquerda contém comandos que exigem um valor de comando e a coluna direita descreve o que você deve fazer para especificar CommandParameter para cada um desses comandos. (A ação equivalente na caixa de diálogo Personalizar teclado (menu Ferramentas ) para especificar CommandParameter está selecionando um item na caixa de lista que aparece quando você seleciona um dos seguintes comandos na caixa Comandos .)

Quando Command está definido como	CommandParameter precisa ser
Borders, Color ou Shading	Um número, especificado como texto, correspondente à posição da configuração selecionada na caixa de lista que contém valores, em que 0 (zero) é o primeiro item, 1 é o segundo item e assim por diante
Columns	Um número entre 1 e 45, especificado como texto, correspondente ao número de colunas que você deseja aplicar
Condensed	Uma medida de texto entre 0,1 e 12,75 pontos, especificada em incrementos de 0,05 ponto (72 pontos = 2,54 centímetros)
Expanded	Uma medida de texto entre 0,1 e 12,75 pontos, especificada em incrementos de 0,05 ponto (72 pontos = 2,54 centímetros)
FileOpenFile	O caminho e o nome do arquivo a ser aberto. Se o caminho não for especificado, será usada a pasta atual
Font Size	Uma medida de texto positiva, especificada em incrementos de 0,5 ponto (72 pontos = 1 polegada)
Lowered, Raised	Uma medida de texto entre 1 e 64 pontos, especificada em incrementos de 0,5 ponto (72 pontos = 2,54 centímetros)
Symbol	Uma cadeia de caracteres criada pela concatenação de uma instrução Chr () e o nome de uma fonte de símbolos (por exemplo, Chr(167) & "Symbol")

Exemplo

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

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

Este exemplo adiciona a combinação de teclas ALT + F4 à fonte Arial e exibe o número de itens na coleção KeyBindings. Em seguida, o exemplo limpa a combinação de teclas ALT + F4 (retornada para sua configuração padrão) e exibe novamente o número de itens na coleção KeyBindings.

CustomizationContext = ActiveDocument.AttachedTemplate 
Set myKey = KeyBindings.Add(KeyCategory:=wdKeyCategoryFont, _ 
    Command:="Arial", KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4)) 
MsgBox KeyBindings.Count & " keys in KeyBindings collection" 
myKey.Clear 
MsgBox KeyBindings.Count & " keys in KeyBindings collection"

Este exemplo adiciona a combinação de teclas CTRL+ALT+S ao comando Fonte com 8 pontos especificados como tamanho da fonte.

CustomizationContext = NormalTemplate 
KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _ 
    Command:="FontSize", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _ 
    CommandParameter:="8"

Este exemplo adiciona a combinação de teclas CTRL+ALT+H ao estilo de título Heading 1 do documento ativo.

CustomizationContext = ActiveDocument 
KeyBindings.Add KeyCategory:=wdKeyCategoryStyle, _ 
    Command:="Heading 1", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyH)

Este exemplo adiciona a combinação de teclas CTRL+ALT+O à entrada de AutoTexto chamada "Hello".

CustomizationContext = ActiveDocument 
KeyBindings.Add KeyCategory:=wdKeyCategoryAutoText, _ 
    Command:="Hello", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyO)

Confira também

Objeto da coleção KeyBindings

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.