Word VBA教程:Rebind方法

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

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方法。

VBA示例

本示例将 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号