怎样给VBA代码添加快捷键？

leroy · 发表于 2010-8-15 17:11

如题，自己通过录制宏编辑了一段代码，想添加快捷键，请问怎么实现？

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

liuyan819 · 发表于 2010-8-15 17:25

录制之前就对话框提示你设置啊！

0Mouse · 发表于 2010-8-15 17:26

录制之前就可以设定啊！

录制宏

[ 本帖最后由 0Mouse 于 2010-8-15 17:27 编辑 ]

leroy · 发表于 2010-8-15 17:30

开始没有设置，录制之后怎么设置快捷键呢？

LangQueS · 发表于 2010-8-15 17:42

Sub 为宏设置快捷键()
Application.OnKey "^I", "临时" '设置 Ctrl+Shift+I 键为"临时"过程的快捷键
End Sub

leroy · 发表于 2010-8-15 18:20

谢谢！
继续请教，我按照一楼的代码运行的时候，会弹出一个窗口，问是否搜索文档的其余部分。由于我只是删除选定区域的回车符，所以运行的时候还得点击取消。能不能通过修改代码将操作弄得简单点，把点击取消这一步去掉？

[ 本帖最后由 leroy 于 2010-8-15 18:21 编辑 ]

leroy · 发表于 2010-8-15 20:42

自己顶一下，请老师指教！

LangQueS · 发表于 2010-8-15 20:46

这样试试

Application.DisplayAlerts = False    '禁用警告提示

  …… …… ……

Application.DisplayAlerts = True       '恢复警告提示

leroy · 发表于 2010-8-15 22:27

这样不行，因为系统默认情况下是选择 “是”，但是如果这样的话就把整片文档的所有回车键都删除了，也就将文档变成一大段了。
我想让系统默认选择取消，请问应该怎么修改代码？
盼指教！

tangqingfu · 发表于 2010-8-15 23:17

原帖由 LangQueS 于 2010-8-15 17:42 发表
Sub 为宏设置快捷键()
Application.OnKey "^I", "临时" '设置 Ctrl+Shift+I 键为"临时"过程的快捷键
End Sub

谢谢LangQueS版主的分享，收藏备用！

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

[求助] 怎样给VBA代码添加快捷键？

回复 8楼 LangQueS 的帖子