Word VBA教程:Key方法

返回一个KeyBinding对象,该对象代表了指定的自定义组合键。如果该组合键不存在,则本方法返回 Nothing。

expression.Key(KeyCode, KeyCode2)

expression   必需。该表达式返回一个 KeyBindings 或 KeysBoundTo对象。

KeyCode   Long 类型,必需。用 WdKey 常量指定的一个键。

KeyCode2   Variant 类型,可选。用 WdKey 常量指定的第二个键。

说明

可用BuildKeyCode方法创建 KeyCode 或 KeyCode2参数。

VBA示例

本示例将 Alt+F4 指定给 Arial 字体,然后显示 KeyBindings集合中的项数。接着清除该组合键(将它恢复到默认设置),并重新显示 KeyBindings集合中的项数。


CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4), _
    KeyCategory:=wdKeyCategoryFont, Command:="Arial"
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
KeyBindings.Key(KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4)).Clear
MsgBox KeyBindings.Count & " keys in KeyBindings collection"

本示例在活动文档中将 Ctrl+Shift+U 指定给宏“Macro1”。本示例使用 Key属性返回一个 KeyBinding对象,这样 Word 可以查找并显示命令名称。


CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _
    wdKeyShift, wdKeyU), KeyCategory:=wdKeyCategoryMacro, _
    Command:="Macro1"
MsgBox KeyBindings.Key(BuildKeyCode(wdKeyControl, _
    wdKeyShift, wdKeyU)).Command

本示例判定 Ctrl+Shift+A 是否为 KeyBindings集合的一部分。


Dim kbTemp As KeyBinding
CustomizationContext = NormalTemplate
Set kbTemp = KeyBindings.Key(BuildKeyCode(wdKeyControl, _
    wdKeyShift,wdKeyA))
If (kbTemp Is Nothing) Then MsgBox _
    "Key is not in the KeyBindings collection"

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号