Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna um número exclusivo para a segunda chave em vinculação de teclas especificada. Long somente leitura.
Sintaxe
expression. KeyCode2
Expressão Uma expressão que retorna um objeto 'KeyBinding'.
Exemplo
Este exemplo exibe os códigos de tecla de cada chave da coleção KeyBindings (a coleção de todas as teclas personalizadas do documento ativo).
Dim aKey As KeyBinding
CustomizationContext = ActiveDocument
For Each aKey In KeyBindings
If aKey.KeyCode2 <> wdNoKey Then
MsgBox aKey.KeyString & vbCr _
& "KeyCode1 = " & aKey.KeyCode & vbCr _
& "KeyCode2 = " & aKey.KeyCode2
Else
MsgBox aKey.KeyString & vbCr _
& "KeyCode1 = " & aKey.KeyCode
End If
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.