Classe KeysBoundTo (Word VBA)

Uma coleção de objetos KeyBinding atribuídos a um comando, estilo, macro ou outro item no contexto atual. Para usar uma variável de classe KeysBoundTo, ela primeiro precisa ser instanciada por exemplo

Dim kbt as KeysBoundTo
Set kbt = Dim strCommand As String: strCommand = 
KeysBoundTo(KeyCategory:=wdKeyCategoryAutoText, Command:=strCommand)

Command

Retorna uma cadeia de caracteres que representa o comando atribuído à combinação de teclas especificada. Somente leitura.

Dim kbLoop As KeyBinding 
 
For Each kbLoop In KeyBindings 
 If kbLoop.KeyCategory = wdKeyCategoryFont Then 
 Count = Count + 1 
 MsgBox kbLoop.Command & vbCr & kbLoop.KeyString 
 End If 
Next kbLoop 
 
If Count = 0 Then MsgBox "Keys haven't been assigned to fonts"

CommandParameter

Retorna o parâmetro de comando atribuído à tecla de atalho especificada. Cadeia de caracteressomente leitura.

Para obter informações sobre comandos que usam parâmetros, consulte o método Add. Use a propriedade Command para retornar o nome do comando atribuído à tecla de atalho especificada.

Dim kbNew As KeyBinding 
 
Set kbNew = KeyBindings.Add(KeyCategory:=wdKeyCategoryCommand, _ 
 Command:="FontSize", _ 
 KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _ 
 CommandParameter:="8") 
MsgBox kbNew.Command & Chr$(32) & kbNew.CommandParameter _ 
 & vbCr & kbNew.KeyString

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.

Sub TestContext1() 
 Dim kbMacro1 As KeysBoundTo 
 
 Set kbMacro1 = KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _ 
 Command:="Macro1") 
 MsgBox kbMacro1.Context.Name 
End Sub

Count

Retorna um Long que representa o número de chaves na coleção. Somente leitura.

Dim lngCount As Long
lngCount = KeysBoundTo.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 kbgKeysBoundTo As KeyBinding
Set kbgKeysBoundTo = KeysBoundTo(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.

Key (KeyCode, KeyCode2)

Dim lngKeyCode As Long: lngKeyCode =  
Dim kbgKey As KeyBinding
Set kbgKey = KeysBoundTo.Key(KeyCode:=lngKeyCode)

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 WdKey

KeyCategory

Retorna o tipo do item atribuído ao acoplamento de teclas especificado. Somente leitura WdKeyCategory. Aqui você pode encontrar os valores possíveis para WdKeyCategory.

Dim wkcKeyCategory As WdKeyCategory
wkcKeyCategory = KeysBoundTo.KeyCategory