Word VBA中如何将斯堪的纳维亚字母及特殊字符设为wdKey快捷键
问题:VBA中能否使用斯堪的纳维亚字母作为wdKey参数绑定快捷键?
我打算在VBA中把斯堪的纳维亚字母用作热键的组成部分,因为这类按键默认都是未分配状态。
官方文档中给出了wdKey枚举值列表,但其中未包含任何斯堪的纳维亚字母及特殊字符对应的枚举值。
我能否在VBA中使用斯堪的纳维亚字母或特殊字符作为wdKey参数值?目前我尝试使用wdKeyÅ时直接报错。但通过Word下拉菜单是可以将斯堪的纳维亚字母设置为快捷键的,说明理论上可以通过代码实现该需求。
参考可用的示例代码如下,我想要将代码中的wdKeyL替换为wdKeyÅ或等效的参数值:其中selecthighlight宏的作用是选中当前段落并将其高亮为亮绿色,selecthighlightSC宏的作用是将ALT + L快捷键绑定到前者。
Sub selecthighlight() Selection.Paragraphs(1).Range.Select Options.DefaultHighlightColorIndex = wdBrightGreen Selection.Range.HighlightColorIndex = wdBrightGreen End Sub Sub selecthighlight_SC() ' 自定义配置位置 CustomizationContext = NormalTemplate ' 绑定快捷键 KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyL), _ KeyCategory:=wdKeyCategoryMacro, _ Command:="selecthighlight" End Sub
补充说明:我此前在其他论坛看到同款问题,发布三年仍无人解答,且帖子已归档无法操作,因此在此重新提问。
解决方案
你不需要找对应的wdKey枚举常量,这个枚举本质只是微软预设的常用按键的虚拟键码别名,未收录的地区特殊字符直接传对应按键的虚拟键码数值即可。
操作步骤
- 先手动在Word界面给
selecthighlight宏绑定你要用的Alt+Å快捷键 - 运行下面的代码读取绑定的对应键码值:
Sub GetBoundKeyCode() Dim kb As KeyBinding For Each kb In NormalTemplate.KeyBindings If kb.Command = "selecthighlight" Then ' 按Ctrl+G打开立即窗口就能看到输出的数值 Debug.Print "对应按键的虚拟键码:" & kb.KeyCode End If Next End Sub
- 把输出的数值替换掉原来代码里的
wdKeyL即可,比如北欧标准键盘布局下Å对应的键码是197,修改后的绑定代码如下:
Sub selecthighlight_SC() CustomizationContext = NormalTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, 197), _ KeyCategory:=wdKeyCategoryMacro, _ Command:="selecthighlight" End Sub
其他斯堪的纳维亚字母比如Ä、Ö、Æ、Ø都可以用相同方法处理,先手动绑定读键码再填到代码里即可,不用依赖官方的wdKey枚举。
内容的提问来源于stack exchange,提问作者Samuel Saari
相关产品推荐
相关产品推荐

