通过

KeyBinding.KeyCategory Property

  • 项目
Word Developer Reference

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.

Visual Basic for Applications 
  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