KeyBindings.Key method (Word)
Returns a KeyBinding object that represents the specified custom key combination.
Syntax
expression.Key (KeyCode, KeyCode2)
expression A variable that represents a 'KeyBindings' collection.
Parameters
Name | Required/Optional | Data type | Description |
---|---|---|---|
KeyCode | Required | Long | A key you specify by using one of the WdKey constants. |
KeyCode2 | Optional | Variant | A second key you specify by using one of the WdKey constants. |
Return value
KeyBinding
Remarks
If the key combination doesn't exist, this method returns Nothing.
Use the BuildKeyCode method to create the KeyCode or KeyCode2 argument.
Example
This example assigns the ALT+F4 key combination to the Arial font and then displays the number of items in the KeyBindings collection. 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"
This example assigns the CTRL+SHIFT+U key combination to the macro named "Macro1" in the active document. 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
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"
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for