Classe KeyBindings (Word VBA)
Uma coleção de objetos KeyBinding que representam as atribuições de teclas personalizadas no contexto atual. As atribuições de teclas personalizadas são feitas na caixa de diálogo Personalizar Teclado. Para usar uma variável de classe KeyBindings, ela primeiro precisa ser instanciada por exemplo
Dim kbs as KeyBindings
Set kbs = KeyBindings
For Each
Aqui está um exemplo de processamento dos itens KeyBindings em uma coleção.
Dim kbg As KeyBinding
For Each kbg In KeyBindings
Next kbg
Add
Retorna um objeto KeyBinding que representa uma nova tecla de atalho para uma macro, comando interno, fonte, entrada de AutoTexto, estilo ou símbolo.
Você pode usar 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 (menuferramentas ) para especificar CommandParameter está selecionando um item na caixa de listagem que aparece quando você seleciona um dos seguintes comandos na caixa comandos .)
Add (KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)
CustomizationContext = NormalTemplate
KeyBindings.Add _
KeyCategory:=wdKeyCategoryCommand, _
Command:="FileClose", _
KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)
Arguments
O seguinte argumento é opcional
KeyCategory (WdKeyCategory) - A categoria da atribuição de chave.
Aqui você pode encontrar os valores possíveis para
Command (String) - O comando que a combinação de teclas especificada executa.
KeyCode (Long) - Uma tecla que você especifica usando uma das seguintes constantes WdKey.
Optional arguments
Os seguintes argumentos são opcionais
KeyCode2 (WdKey) - Uma segunda tecla que você especifica usando uma das seguintes constantes WdKey.
Aqui você pode encontrar os valores possíveis para
CommandParameter (String) - Texto adicional, caso haja algum, necessário para o comando especificado por Command. Para ver detalhes, consulte a seção "Comentários".
ClearAll
Limpa todas as atribuições de teclas personalizadas e restaura as atribuições de teclas de atalho originais do Microsoft Word.
CustomizationContext = NormalTemplateKeyBindings.ClearAll
Context
Retorna um objeto que representa o local de armazenamento de vinculação de teclas especificada. Somente leitura.
Esta propriedade pode retornar um objeto Document, Templateou Application . As atribuições de teclas internas (por exemplo, CTRL+I para Itálico) retornam o objeto Application como contexto. Qualquer ligações de tecla que você adicionar retornará um objeto de modelo ou documento, dependendo do contexto da personalização em efeito quando o objeto KeyBinding foi adicionado.
Dim appContext As Application
Set appContext = KeyBindings.Context
Count
Retorna um Long que representa o número de associações de chave na coleção. Somente leitura.
Dim lngCount As Long
lngCount = KeyBindings.Count
Item
Retorna um objeto KeyBinding individual em uma coleção.
Item (Index)
Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.
Dim kbg As KeyBinding
Set kbg = KeyBindings(Index:=1)
Key
Retorna um objeto KeyBinding que representa a combinação de teclas personalizada especificada.
Se a combinação de teclas não existir, este método retornará Nothing. Você pode usar o método BuildKeyCode para criar o argumento KeyCode ou KeyCode2.
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4), _
KeyCategory:=wdKeyCategoryFont, Command:="Arial"
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
KeyBindings.Key(KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4)).Clear
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
Arguments
O seguinte argumento é necessário
KeyCode (Long) - Uma tecla que você especifica usando uma das seguintes constantes WdKey.
Optional arguments
The following argument is optional
KeyCode2 (WdKey) - Uma segunda tecla que você especifica usando uma das seguintes constantes WdKey.
Aqui você pode encontrar os valores possíveis para