热键 F4——设置某宏快捷键

413191246se

将 HotKeyF4 宏永久放在工具栏上，然后把 command:="Red" 中的 Red 换成某宏的宏名，使用时按一下 HotKeyF4 然后按 F4 就可以使用某宏了！真方便！

Sub HotKeyF4()
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF4), KeyCategory:=wdKeyCategoryMacro, Command:="Red"
End Sub

Sub Red()
    Selection.WholeStory
    Selection.Font.Color = wdColorRed
    Selection.HomeKey Unit:=wdStory
End Sub

tangqingfu

谢谢413191246se兄的分享！
有点理解不过来，能否详细点解释？最好给个附件测试一下

sqhsqhli

不如这样了，直接放到thisdocument下
Private Sub Document_Open()
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF4), KeyCategory:=wdKeyCategoryMacro, Command:="Red"
End Sub
Sub Red()
    Selection.WholeStory
    Selection.Font.Color = wdColorRed
    Selection.HomeKey Unit:=wdStory
End Sub

413191246se

2偻 汤兄 不必要附件，自己新建一个文档，键入几个字就可以，RED 宏是具体要执行的宏，在把 RED 这个宏的名字“Red“放到 HotKeyF4 宏中的 command:=""双引号中后，每次按一下 HotKeyF4 使 F4 键成为 RED 宏的热键，然后，直接按 F4 就是执行 Red 宏了。
3楼 sqh 老弟，还能直接放到 this document 下？ 我只会放在 Normal.dot 中的 NewMacros 中。。。其实自己的想法是：在 VBE 界面中，光标在哪个宏中，就直接按一个按钮，把该宏设为某个热键才好呢！

sqhsqhli

413191246se 发表于 2012-3-9 14:34
2偻 汤兄 不必要附件，自己新建一个文档，键入几个字就可以，RED 宏是具体要执行的宏，在把 RED 这个宏的名 ...

你竟然还不知道thisdocument下可以。。。。

413191246se

似乎网上有人说，this documents 下是可以有模块的，但我的宏录制后，都保存在 Normal.dot 的 NewMacros 中；在 this document 下有什么好处呢？——没办法，半年了，俺还是小菜鸟呢！

东山客

收藏
……{:soso_e100:}

cock0532

不明白，回复下

413191246se

重新阅读1楼