KeyBindings.Add 方法 (Word)

返回一个 KeyBinding 对象，该对象代表宏、 内置命令、 字体、 自动图文集词条、 样式或符号的新快捷键。

语法

表达式。添加 (KeyCategory、 Command、 KeyCode、 KeyCode2、 CommandParameter)

expression 是必需的。 一个代表“KeyBindings”集合的变量。

参数

名称	必需/可选	数据类型	说明
KeyCategory	必需	WdKeyCategory	键分配方案的类别。
Command	必需	String	指定组合键执行的命令。
KeyCode	必需	Long	通过使用 WdKey 常量之一指定一个密钥。
KeyCode2	可选	Variant	通过使用 WdKey 常量之一指定第二个键。
CommandParameter	可选	Variant	Command 所指定的命令所需的附加文字（如果有）。 有关详细信息，请参阅下面的"注解"部分。

返回值

KeyBinding

备注

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

在下表中，左列包含需要命令值的命令，右侧列介绍了为其中每个命令指定 CommandParameter 必须执行的操作。 (“ 自定义键盘 ”对话框中 (“工具 ”菜单中) 指定 CommandParameter 的等效操作是在列表框中选择一个项，在“ 命令 ”框中选择以下命令之一时出现。)

如果将 Command 设置为	CommandParameter 必须为
Borders 、 Color 或 Shading	一个数字（指定为文本），对应于在包含值的列表框中选择的设置的位置，其中 0 (零) 是第一项，1 是第二项，依序排列
列	1 到 45 之间的数字（指定为文本），对应于要应用的列数
Condensed	一个 0.1 磅至 12.75 磅之间的文本度量值，以 0.05 磅为增量（72 磅 = 1 英寸）
Expanded	一个 0.1 磅至 12.75 磅之间的文本度量值，以 0.05 磅为增量（72 磅 = 1 英寸）
FileOpenFile	需要打开文件的路径和名称。 如果没有指定路径，则使用当前文件夹
Font Size	一个正的文本度量值，以 0.5 磅为增量（72 磅 = 1 英寸）
Lowered、Raised	一个 1 磅至 64 磅之间的文本度量值，以 0.5 磅为增量（72 磅 = 1 英寸）
Symbol	通过连接 Chr() 指令和符号字体 (例如， Chr(167) & "Symbol") 的名称来创建一个字符串

示例

本示例为 FileClose 命令添加 Ctrl+Alt+W。 这个键盘自定义方案保存在 Normal 模板中。

CustomizationContext = NormalTemplate 
KeyBindings.Add _ 
    KeyCategory:=wdKeyCategoryCommand, _ 
    Command:="FileClose", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)

本示例为 Arial 字体添加 ALT + F4 组合键，然后显示 键绑定 集合中的项的数目。 该示例然后清除 ALT + F4 键组合 (返回到其默认设置)，并重新显示 的键绑定 集合中的项的数目。

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

本示例向 Font 命令添加 Ctrl+Alt+S，并将字号指定为 8 磅。

CustomizationContext = NormalTemplate 
KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _ 
    Command:="FontSize", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _ 
    CommandParameter:="8"

本示例在活动文档中将 Ctrl+Alt+H 添加到"标题 1"样式。

CustomizationContext = ActiveDocument 
KeyBindings.Add KeyCategory:=wdKeyCategoryStyle, _ 
    Command:="Heading 1", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyH)

本示例将 Ctrl+Alt+O 添加到名为"Hello"的"自动图文集"词条。

CustomizationContext = ActiveDocument 
KeyBindings.Add KeyCategory:=wdKeyCategoryAutoText, _ 
    Command:="Hello", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyO)

另请参阅

集合对象的键绑定

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。