Método KeyBindings.Key (Word)KeyBindings.Key method (Word)

Retorna um objeto KeyBinding que representa a combinação de teclas personalizada especificada.Returns a KeyBinding object that represents the specified custom key combination.

SintaxeSyntax

expression.expression. Key( _KeyCode_ , _KeyCode2_ )

expressão Uma variável que representa uma coleção de 'KeyBindings'.expression A variable that represents a 'KeyBindings' collection.

ParâmetrosParameters

NomeName Obrigatório/OpcionalRequired/Optional Tipo de dadosData type DescriçãoDescription
KeyCodeKeyCode ObrigatórioRequired LongLong Uma tecla que você especifica usando uma das seguintes constantes WdKey .A key you specify by using one of the WdKey constants.
KeyCode2KeyCode2 OpcionalOptional VariantVariant Uma segunda tecla que você especifica usando uma das seguintes constantes WdKey .A second key you specify by using one of the WdKey constants.

Valor de retornoReturn value

KeyBindingKeyBinding

ComentáriosRemarks

Se a combinação de teclas não existir, este método retornará Nothing.If the key combination doesn't exist, this method returns Nothing.

Você pode usar o método BuildKeyCode para criar o argumento KeyCode ou KeyCode2.You can use the BuildKeyCode method to create the KeyCode or KeyCode2 argument.

ExemploExample

Este exemplo atribui a combinação de teclas ALT + F4 à fonte Arial e exibe o número de itens na coleção KeyBindings .This example assigns the ALT+F4 key combination to the Arial font and then displays the number of items in the KeyBindings collection. O exemplo então limpa as combinações de teclas (retorna com a configuração padrão) e exibe novamente o número de itens na coleção KeyBindings.The example then clears the key combinations (returns it to its default setting) and redisplays the number of items in the KeyBindings collection.

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"

Este exemplo atribui a combinação de teclas CTRL + SHIFT + U à macro chamada "Macro1" no documento ativo.This example assigns the CTRL+SHIFT+U key combination to the macro named "Macro1" in the active document. O exemplo usa a propriedade Key para retornar um objeto KeyBinding para que o Word possa recuperar e exibir o nome do comando.The example uses the Key property to return a KeyBinding object so that Word can retrieve and display the command name.

CustomizationContext = ActiveDocument 
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _ 
 wdKeyShift, wdKeyU), KeyCategory:=wdKeyCategoryMacro, _ 
 Command:="Macro1" 
MsgBox KeyBindings.Key(BuildKeyCode(wdKeyControl, _ 
 wdKeyShift, wdKeyU)).Command

Este exemplo determina se a combinação de teclas CTRL + SHIFT + A é parte da coleção KeyBindings .This example determines whether the CTRL+SHIFT+A key combination is part of the KeyBindings collection.

Dim kbTemp As KeyBinding 
 
CustomizationContext = NormalTemplate 
Set kbTemp = KeyBindings.Key(BuildKeyCode(wdKeyControl, _ 
 wdKeyShift,wdKeyA)) 
If (kbTemp Is Nothing) Then MsgBox _ 
 "Key is not in the KeyBindings collection"

Confira tambémSee also

Objeto da coleção KeyBindingsKeyBindings Collection Object