KeyCode2 Property

Microsoft Word Visual Basic

expression.KeyCode2

expression    Required. An expression that returns a KeyBinding object.

Example

This example displays the key codes of each key in the KeyBindings collection (the collection of all the customized keys in the active document).

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