Question

怎样给Word里面的VBA代码添加快捷键？

如题，自己通过录制宏编辑了一段代码，想添加快捷键，请问怎么实现？
Sub delete()
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Answer 1

简单的做，你可以在WORD中选择菜单 工具->宏 ->录制新宏 ，宏名 可以随便写，也可以直接写Delete，选择 "将宏指定到键盘" ,然后就让你指定快捷键，直接按键盘上你想要使用的键或者键的组合即可,之后点 指定 -> 点停止录制宏。
然后在 visual basic 编辑器（工具->宏 ->visual basic 编辑器）中 将自己上面的代码复制并粘贴到刚才生成的空过程中即可。
现在按一下你设定的快捷键试试！

Answer 2

修改宏的快捷键：

工具==>自定义==>命令==键盘==>宏==>右边选中要定义快捷键的宏（如果看不到自己的宏，请右下角的下拉列表框中选择当前文档）==>在请按新快捷键处点一下，再按下想定义的快捷键==>指定。

希望能帮到您。