Word VBA教程:Disable方法

如果已将一个组合键分配给某一命令,则本方法将删除这个组合键。应用本方法后,组合键将不再起作用。本方法相当于在“工具”菜单的“自定义键盘”对话框中单击“删除”按钮。

注意  对 KeyBinding对象使用Clear方法,可以为一个内置命令重新设置默认的按键分配方案。将 KeyBinding对象添至其他位置时,不必删除或者重新绑定该对象。

expression.Disable

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

VBA示例

本示例删除 Ctrl+Shift+B 的按键分配方案。默认情况下,此组合键分配给 Bold 命令。


CustomizationContext = NormalTemplate
FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyB)).Disable

本示例将 Ctrl+Shift+O 指定给 Organizer 命令。然后本示例用 Disable方法删除 Ctrl+Shift+O 的指定方案,并且显示一条消息。


CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyO, _
    wdKeyControl, wdKeyShift), _
    KeyCategory:=wdKeyCategoryCommand, Command:="Organizer"
With FindKey(BuildKeyCode(wdKeyO, wdKeyControl, wdKeyShift))
    MsgBox .Command & " is assigned to CTRL+Shift+O"
    .Disable
    If .Command = "" Then MsgBox _
        "Nothing is assigned to CTRL+Shift+O"
End With

本示例删除名为“Macro1”的共用宏的所有按键分配方案。


Dim kbLoop As KeyBinding
CustomizationContext = NormalTemplate
For Each kbLoop In KeysBoundTo _
        (KeyCategory:=wdKeyCategoryMacro, Command:="Macro1")
    kbLoop.Disable
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号