能否设定运行某一宏的快捷键为一个按键，而非组合键?

413191246se · 发表于 2012-3-2 10:44

本帖最后由 413191246se 于 2012-3-2 10:46 编辑

闲来无事，查找关于VBE操作的帖子，偶遇汤兄此帖，遂录制探求，实践成功！录制宏即可！

Sub Red()
Selection.WholeStory
Selection.Font.Color = wdColorRed
Selection.HomeKey Unit:=wdStory
End Sub
Sub SetKey()
' CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF4), KeyCategory:=wdKeyCategoryMacro, Command:="Red"
' MsgBox "Red宏的快捷键（热键）已经设置为F4！"
End Sub

chuhaiou · 发表于 2012-3-7 08:41

几个回复太好了，学习了！

chuhaiou · 发表于 2012-3-7 09:18

413191246se 发表于 2012-3-2 10:44
闲来无事，查找关于VBE操作的帖子，偶遇汤兄此帖，遂录制探求，实践成功！录制宏即可！

Sub Red()

能否实现组合键，如按下ALT+方向键输入左箭头

对生命的辜负 · 发表于 2019-5-4 13:07

偶遇上古大神华山论剑，慕白了

413191246se · 发表于 2019-5-5 00:09

迟到的回答 to 13 楼：

Sub 自定义快捷键_Alt_左箭头()
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(37, wdKeyAlt), KeyCategory:=wdKeyCategoryMacro, Command:="test"
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 能否设定运行某一宏的快捷键为一个按键，而非组合键?