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"

See also

KeyBinding Object