Rebind Method

Microsoft Word Visual Basic

Changes the command assigned to the specified key binding.

expression.Rebind(KeyCategory, Command, CommandParameter)

expression    Required. An expression that returns a KeyBinding object.

KeyCategory   Required WdKeyCategory. The key category of the specified key binding.

WdKeyCategory can be one of these WdKeyCategory constants.
wdKeyCategoryAutoText
wdKeyCategoryCommand
wdKeyCategoryDisable
wdKeyCategoryFont
wdKeyCategoryMacro
wdKeyCategoryNil
wdKeyCategoryPrefix
wdKeyCategoryStyle
wdKeyCategorySymbol

Command    Required String. The name of the specified command.

CommandParameter    Optional Variant. Additional text, if any, required for the command specified by Command. For information about values for this argument, see the Add method for the KeyBindings object.

Example

This example reassigns the CTRL+SHIFT+S key binding to the FileSaveAs command.

Dim kbTemp As KeyBinding

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

This example rebinds all keys assigned to the macro named "Macro1" to the macro named "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