Propriedade Application.KeysBoundTo (Word)
Retorna um objeto KeysBoundTo que representa todas as combinações de teclas atribuídas ao item especificado.
Sintaxe
expression. KeysBoundTo( _KeyCategory_ , _Command_ , _CommandParameter_ )
expressão Uma variável que representa um Aplicativo objeto. Opcional.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| KeyCategory | Obrigatório | WdKeyCategory | A categoria da combinação de teclas. |
| Command | Obrigatório | String | O nome do comando. |
| CommandParameter | Opcional | Variant | Texto adicional, se houver, necessária para o comando especificado pelo comando. Para obter mais informações, consulte a seção "Comentários" no método Add do objeto KeyBindings. |
Exemplo
Este exemplo exibe todas as combinações de teclas atribuídas ao comando FileOpen no modelo anexado ao documento ativo.
Dim kbLoop As KeyBinding
Dim strOutput As String
CustomizationContext = ActiveDocument.AttachedTemplate
For Each kbLoop In _
KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, _
Command:="FileOpen")
strOutput = strOutput & kbLoop.KeyString & vbCr
Next kbLoop
MsgBox strOutput
Este exemplo remove todas as atribuições de teclas de Macro1 no modelo Normal.
Dim aKey As KeyBinding
CustomizationContext = NormalTemplate
For Each aKey In _
KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
Command:="Macro1")
aKey.Disable
Next aKey
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.