Rebind 方法

       

为指定的组合键更改分配的命令。

expression.Rebind(KeyCategory, Command, CommandParameter)

expression   必需。该表达式返回一个 KeyBinding 对象。

KeyCategory  必需,WdKeyCategory。指定的组合键的按键类别。

Command   String 类型,必需。指定的命令的名称。

CommandParameter   Variant 类型,可选。Command 所指定的命令的附加文字。有关这些参数值的详细内容,请参阅 KeyBindings 对象的 Add 方法。

示例

本示例将 Ctrl+Shift+S 组合键重新指定给 FileSaveAs 命令。

Dim kbTemp As KeyBinding

CustomizationContext = NormalTemplate
Set kbTemp = _
    FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyS))
kbTemp.Rebind KeyCategory:=wdKeyCategoryCommand, _
    Command:="FileSaveAs"

本示例将所有分派给宏“Macro1”的键重新分派给宏“ReportMacro”。

Dim kbLoop As KeyBinding

CustomizationContext = ActiveDocument.AttachedTemplate
For Each kbLoop In _
        KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
        Command:="Macro1")
    kbLoop.Rebind KeyCategory:=wdKeyCategoryMacro, _
        Command:="ReportMacro"
Next kbLoop