KeyCode2 属性

返回指定组合键中第二个键的唯一代码。Long 类型，只读。

expression   必需。该表达式返回一个 KeyBinding 对象。

示例

本示例显示 KeyBindings 集合中每个键的键代码（活动文档中所有自定义键盘的集合）。

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