Share via


KeyCode Property

Returns a unique number for the first key in the specified key binding. Read-only Long.

Note  You create this number by using the BuildKeyCode method when you're adding key bindings by using the Add method of the KeyBindings object.

expression.KeyCode

expression Required. An expression that returns a KeyBinding object.

Example

This example displays a message if the KeyBindings collection includes the ALT+CTRL+W key combination.

Dim lngCode As Long
Dim kbLoop As KeyBinding

CustomizationContext = NormalTemplate
lngCode = BuildKeyCode(wdKeyAlt, wdKeyControl, wdKeyW)
For Each kbLoop In KeyBindings
    If lngCode = kbLoop.KeyCode Then
        MsgBox kbLoop.KeyString & " is already in use"
    End If
Next kbLoop

Applies to | KeyBinding Object

See Also | BuildKeyCode Method | KeyCode2 Property | KeyString Method