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