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