为指定的组合键更改分配的命令。
expression.Rebind(KeyCategory, Command, CommandParameter)
expression 必需。该表达式返回一个 KeyBinding 对象。
KeyCategory 必需,WdKeyCategory。指定的组合键的按键类别。
WdKeyCategory 可以是下列 WdKeyCategory 常量之一: |
wdKeyCategoryAutoText |
wdKeyCategoryCommand |
wdKeyCategoryDisable |
wdKeyCategoryFont |
wdKeyCategoryMacro |
wdKeyCategoryNil |
wdKeyCategoryPrefix |
wdKeyCategoryStyle |
wdKeyCategorySymbol |
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