如何制作查找对话框

52excel

在使用word时， 如何制作一个小对话框(用shift+z切换)，在框中输入字符（比如“皓”）、回车之后光标停在当前文本中“皓”后面的第三个字。 请高手赐教！

[此贴子已经被作者于2003-12-10 17:06:42编辑过]

守柔

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间的空白处运行即可，以后可用快捷键。 如果需要重复查找，则仍然要输入比如”皓”，它才会继续往下，如果不便，再与你改。

52excel

谢谢守柔！ 请加上重复查找的语句。再问： 如果被查找的字不是在当前WORD文档，而是在excel表格中，该怎么办？比如，在BOOK2表的姓名栏查找“皓”字，然后把相应的身份栏中的内容复制在当前WORD文档的光标位置！ 盼请守柔或者别的高手继续跟帖！ xMtj9QX6.rar (1.61 KB, 下载次数: 47)

2003-12-12 03:20 上传

点击文件名下载附件
如何制作查找对话框

守柔

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文档上传以我的经验判断，可能不必如此做，应该有更好的方法。

52excel

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

2003-12-12 20:35 上传

点击文件名下载附件
如何制作查找对话框

守柔

[quote]以下是引用52excel在2003-12-12 20:36:00的发言： 谢谢！疑问：快捷方式如何指定FindText？ 在word文档工作时，需要引用excel表中的字符。如何才能方便快捷？请守柔继续跟贴！谢谢！ ExLKoJ4X.rar (7.4 KB, 下载次数: 31)

2003-12-13 06:15 上传

点击文件名下载附件
如何制作查找对话框

关于疑问录入空宏再粘贴代码即可空宏指定快捷方式。 我将EXCEL 的”字典“ 作为对象插入到WORD中，这是一个简例，在EXCEL 中用的是函数VLOOKUP，你可双击WORD中的对象，输入拼音如ci,bo,ai，单元格中将自动出现字符复制粘贴到需要的地方即可。 不知这样你以为如何？

52excel

守柔的方法简洁巧妙，但是，我需要的字是冷僻字，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)

2003-12-13 12:14 上传

点击文件名下载附件
如何制作查找对话框

注：上传文档中的文字需在WIN2000或以上、OFFICE必须是XP，字库选方正超大字库，这样才能显示。

[此贴子已经被作者于2003-12-13 12:40:25编辑过]

守柔

我以为，你已有了数据源（在EXCEL中），则在EXCEL中完成岂不更好？ 你可以将所有文字纵向排列（根据四角编码升序排列）如果有重码的你可以人为设置分开再用VLOOKUP函数应该没有问题，如果确实想要到WORD中可以粘贴为无文本格式。 另外再问一下你的繁体，有没有对照过符号栏中的中文字体如果这里也有特别是重码可以用unicode码替代。 不知你所谓的冷僻字表做得如何？我对四角编码不懂。 你的这种情况，在EXCEL中绝对更为方便！VLOOKUP的用法可以参见上贴。

[此贴子已经被作者于2003-12-14 9:07:11编辑过]

52excel

我的冷僻字表量比较大（上万记录），是UNICODE，字符不重复。因为使用比较频繁，希望能做成象输入法图标那样，不用从当前文件频繁地切换到EXCEL，并且能够在各种环境（WORD、EXCLE、VFP、TXT等）中使用。 谢谢你的耐心回复，让我获益非浅。我在ACCESS那边重发了一个，请继续关照！