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.
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
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
Dim wkcKeyCategory As WdKeyCategory
wkcKeyCategory = KeysBoundTo.KeyCategory