KeyBindings 属性

返回一个 KeyBindings 集合，该集合代表自定义的键盘指定方案，包含了键代码、键类别和命令。

expression   必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例将 Ctrl+Alt+W 指定给 FileClose 命令。这个键盘自定义方案保存在 Normal 模板中。

CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, _
    wdKeyW), KeyCategory:=wdKeyCategoryCommand, _
    Command:="FileClose"

本示例为 KeyBindings 集合中的每项插入命令名称和组合键字符串。

Dim kbLoop As KeyBinding

CustomizationContext = NormalTemplate
For Each kbLoop In KeyBindings
    Selection.InsertAfter kbLoop.Command & vbTab _
        & kbLoop.KeyString & vbCr
    Selection.Collapse Direction:=wdCollapseEnd
Next kbLoop