Command Property
Returns the command assigned to the specified key combination. Read-only String.
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
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"