全部显示返回分配给指定组合键的项目类型。WdKeyCategory，只读。
| WdKeyCategory 可以是下列 WdKeyCategory 常量之一： |
| wdKeyCategoryAutoText |
| wdKeyCategoryCommand |
| wdKeyCategoryDisable |
| wdKeyCategoryFont |
| wdKeyCategoryMacro |
| wdKeyCategoryNil |
| wdKeyCategoryPrefix |
| wdKeyCategoryStyle |
| wdKeyCategorySymbol |
expression.KeyCategory
expression 必需。该表达式返回“应用于”列表中的一个对象。
本示例显示分配给字体名称的按键。如果尚未给字体分配按键，则显示一条消息。
Dim kbLoop As KeyBinding
Dim intCount As Integer
intCount = 0
For Each kbLoop In KeyBindings
If kbLoop.KeyCategory = wdKeyCategoryFont Then
intCount = intCount + 1
MsgBox kbLoop.Command & vbCr & kbLoop.KeyString
End If
Next kbLoop
If intCount = 0 Then _
MsgBox "Keys haven't been assigned to fonts"