KeyBinding.KeyCategory Property (Word)
Returns the type of item assigned to the specified key binding. Read-only WdKeyCategory.
Syntax
expression .KeyCategory
expression Required. A variable that represents a KeyBinding object.
Example
This example displays the keys assigned to font names. A message is displayed if no keys have been assigned to fonts.
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"