急！请教各位老师，创建word 宏快捷键代码

7016427

请教各位老师，创建word 宏快捷键代码，怎么写？

7016427

补充，word文档里有两个宏（一个是“删除”，第二个是“求和”）。删除快捷键设置为Alt+w，求和快捷键设置为Alt+q

413191246se

    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt + wdKeyW), KeyCategory:=wdKeyCategoryMacro, Command:="abc"
解释：将快捷键组合 Alt+W 指定为宏 abc 的快捷键（另一个请楼主自己更换为 wdkeyE）

413191246se

单个功能键：KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF4), KeyCategory:=wdKeyCategoryMacro, Command:="多重标题一"

7016427

413191246se 发表于 2014-5-28 11:07
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt + wdKeyW), KeyCategory:=wdKeyCategoryMacro, Comma ...

测试失败！

7016427

413191246se 发表于 2014-5-28 11:07
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt + wdKeyW), KeyCategory:=wdKeyCategoryMacro, Comma ...

你好!测试失败!

7016427

413191246se 发表于 2014-5-28 11:07
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt + wdKeyW), KeyCategory:=wdKeyCategoryMacro, Comma ...

老师你好!设置单键快捷键4楼方法即可!为什么组合快捷键就不行呢?

413191246se

确实有问题！看帮助后，得知，应该如此：
KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyW), KeyCategory:=wdKeyCategoryMacro, Command:="枫林小区"

下面是微软VBA官方帮助：

示例
本示例为 Organizer 命令指定组合键 Alt+F1。
KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt,Arg2:=wdKeyF1), KeyCategory:=wdKeyCategoryCommand,Command:="Organizer"

7016427

413191246se 发表于 2014-5-29 10:50
确实有问题！看帮助后，得知，应该如此：
KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:= ...

Private Sub Document_Open()
KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyW), KeyCategory:=wdKeyCategoryCommand, Command:="删除"  ' 测试这个执行没有反应
KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyQ), KeyCategory:=wdKeyCategoryCommand, Command:="求和" '测试这个成功
End Sub

413191246se

要不把 W 键换成 E 键试试，只要绑定键设置中把宏名填写正确，执行一下，相应的宏就可以用热键激活了。