ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 7897|回复: 8

如何制作查找对话框

[复制链接]

TA的精华主题

TA的得分主题

发表于 2003-12-10 17:01 | 显示全部楼层 |阅读模式
在使用word时, 如何制作一个小对话框(用shift+z切换),在框中输入字符(比如“皓”)、回车之后光标停在当前文本中“皓”后面的第三个字。 请高手赐教!
[此贴子已经被作者于2003-12-10 17:06:42编辑过]

TA的精华主题

TA的得分主题

发表于 2003-12-11 06:18 | 显示全部楼层
Sub Macro2() Dim a As String a = InputBox("输入你要定位的字", "Word") If a = "" Then Exit Sub Else Selection.Find.ClearFormatting With Selection.Find .Text = a .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute ActiveDocument.Range(Start:=Selection.End + 2, End:=Selection.End + 3).Select End If End Sub ‘录一空宏 (工具/宏/录制新宏:指定键盘快捷键,比如CTRL+m(SHIFT+Z不可用但CTRL+SHIFT+z可用,相当于CTRL+Z),然后停止录制再工具/宏/运行宏(刚才你录的空宏,将上述代码粘贴于SUB 与END SUB间的空白处运行即可,以后可用快捷键。 如果需要重复查找,则仍然要输入比如”皓”,它才会继续往下,如果不便,再与你改。

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-12-12 03:21 | 显示全部楼层
谢谢守柔! 请加上重复查找的语句。再问: 如果被查找的字不是在当前WORD文档,而是在excel表格中,该怎么办?比如,在BOOK2表的姓名栏查找“皓”字,然后把相应的身份栏中的内容复制在当前WORD文档的光标位置! 盼请守柔或者别的高手继续跟帖! xMtj9QX6.rar (1.61 KB, 下载次数: 47)

TA的精华主题

TA的得分主题

发表于 2003-12-12 06:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Public a As String Sub FindText() a = InputBox("输入你要定位的字", "Word") If a <> "" Then RepeatFind Else Exit Sub End If End Sub Sub RepeatFind() Dim b, i Selection.HomeKey Unit:=wdStory For i = 1 To 50 Selection.Find.ClearFormatting With Selection.Find .Text = a .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute ActiveDocument.Range(Start:=Selection.End + 2, End:=Selection.End + 3).Select b = MsgBox("Next?", vbOKCancel, "Word") If b = 2 Then MsgBox "结束查找!" Exit Sub Else End If Next i End Sub 请注意几个问题,指定宏快捷时,应指定FindText,本代码对无效字符没有判断能力,并仅设置了50 个相同字符的查找,请根据实际修改; 另外需人工判断搜索结束。 至于EXCEL中的,请楼主一并将WORD文档与EXCEL文档上传以我的经验判断,可能不必如此做,应该有更好的方法。

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-12-12 20:36 | 显示全部楼层

word文档如何引用EXCEL表中的字符?

谢谢!疑问:快捷方式如何指定FindText? 在word文档工作时,需要引用excel表中的字符。如何才能方便快捷?请守柔继续跟贴!谢谢! aRWXsnbX.rar (4.9 KB, 下载次数: 27)

TA的精华主题

TA的得分主题

发表于 2003-12-13 06:19 | 显示全部楼层
[quote]以下是引用52excel在2003-12-12 20:36:00的发言: 谢谢!疑问:快捷方式如何指定FindText? 在word文档工作时,需要引用excel表中的字符。如何才能方便快捷?请守柔继续跟贴!谢谢! ExLKoJ4X.rar (7.4 KB, 下载次数: 31) 关于疑问录入空宏再粘贴代码即可空宏指定快捷方式。 我将EXCEL 的”字典“ 作为对象插入到WORD中,这是一个简例,在EXCEL 中用的是函数VLOOKUP,你可双击WORD中的对象,输入拼音如ci,bo,ai,单元格中将自动出现字符复制粘贴到需要的地方即可。 不知这样你以为如何?

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-12-13 12:15 | 显示全部楼层
守柔的方法简洁巧妙,但是,我需要的字是冷僻字,EXCEL字典中没有,即使有,它的拼音检索重码太多,不方便。我做了一个冷僻字表,要求在WORD 文挡中方便地引用。不知有没有好的办法。 我感觉难点是如何定位,如果能定位到表中“1010”号码,就应该很容易把这个号码的对应字“三“引用过来。在VFP中,一个loca for 命令就可以定位。我已发了几个如何定位的贴,难道EXCEL中会没有这个功能吗? 下面是七叶一枝梅在excel中调用WORD的方法,可能对我这个有借鉴,大家以为如何? http://club.excelhome.net/dispbbs.asp?boardID=23&ID=10590 [/quote] Sie1dyXF.rar (4.02 KB, 下载次数: 30) 注:上传文档中的文字需在WIN2000或以上、OFFICE必须是XP,字库选方正超大字库,这样才能显示。
[此贴子已经被作者于2003-12-13 12:40:25编辑过]

TA的精华主题

TA的得分主题

发表于 2003-12-14 09:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我以为,你已有了数据源(在EXCEL中),则在EXCEL中完成岂不更好? 你可以将所有文字纵向排列(根据四角编码升序排列)如果有重码的你可以人为设置分开再用VLOOKUP函数应该没有问题,如果确实想要到WORD中可以粘贴为无文本格式。 另外再问一下你的繁体,有没有对照过符号栏中的中文字体如果这里也有特别是重码可以用unicode码替代。 不知你所谓的冷僻字表做得如何?我对四角编码不懂。 你的这种情况,在EXCEL中绝对更为方便!VLOOKUP的用法可以参见上贴。
[此贴子已经被作者于2003-12-14 9:07:11编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2003-12-14 22:43 | 显示全部楼层
我的冷僻字表量比较大(上万记录),是UNICODE,字符不重复。因为使用比较频繁,希望能做成象输入法图标那样,不用从当前文件频繁地切换到EXCEL,并且能够在各种环境(WORD、EXCLE、VFP、TXT等)中使用。 谢谢你的耐心回复,让我获益非浅。我在ACCESS那边重发了一个,请继续关照!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-14 12:51 , Processed in 0.042817 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表