KeysBoundTo.Command Property (Word)
Returns a String that represents the command assigned to the specified key combination. Read-only.
expression A variable that represents a 'KeysBoundTo' object.
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"