Command 属性

       

返回分配给指定组合键的命令。String 类型,只读。

示例

本示例显示分配给字体名称的按键。如果为字体分配按键,则显示一条消息。

Dim kbLoop As KeyBinding

For Each kbLoop In KeyBindings
    If kbLoop.KeyCategory = wdKeyCategoryFont Then
        Count = Count + 1
        MsgBox kbLoop.Command & vbCr & kbLoop.KeyString
    End If
Next kbLoop

If Count = 0 Then MsgBox "Keys haven't been assigned to fonts"