再请教斑竹一个关于查找替换的问题

cmyy

我现在做了一个查找替换的功能，就是定义一组词，然后在文档中对这一组词同时进行查找和替换（就是把这一组词用一个单词替换），我做的比较复杂。我的做法是，先分别查找每个单词，然后把查找到的单词的位置记住，最后对这些位置进行排序，在一个一个进行显示和替换。请问斑竹，能不能提供一个更好的方法。再有我对find这个对象的意义还是不太明白，请斑竹给说明说明

守柔

呵呵,等我把<守柔WORD编程代码集>有机会上传的话,你可以尽情地看一下.

请参:

一) 查找与替换的基本代码用法之一

'* +++++++++++++++++++++++++++++++++++++++

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub Example() With ActiveDocument.Content.Find .ClearFormatting '清除格式设置 .Font.Name = "华文细黑" '查找的字体格式 With .Replacement '替换条件 .ClearFormatting '清除格式设置 .Font.Name = "黑体" '替换成黑体 End With .Execute FindText:="", ReplaceWith:="", Format:=True, _ Replace:=wdReplaceAll '是格式替换,全部替换 End With End Sub '----------------------

二) 查找与替换的基本代码用法之二

'* +++++++++++++++++++++++++++++++++++++++

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub Example() Dim FindChar As String, Fcount As Integer, RepChar As String On Error Resume Next Application.ScreenUpdating = False '关闭屏幕更新 FindChar = "《" RepChar = "[" With ActiveDocument.Content.Find '此处针对全文档 Do While .Execute(findtext:=FindChar) = True '如果发现 Fcount = Fcount + 1 '计数器 Loop If MsgBox("文档中共发现了" & Fcount & "个" & FindChar & vbCrLf _ & ",按Yes键将进行下一步的替换工作,按No取消", vbYesNo + vbInformation) = vbYes Then .Execute findtext:=FindChar, Wrap:=wdFindContinue, replacewith:=RepChar, Replace:=wdReplaceAll End If End With Application.ScreenUpdating = True '恢复屏幕更新 End Sub '----------------------

最好结合你的实例(上传一个附件),否则易走弯路,OK?

cmyy

我编得太复杂了，实在不好意思拿出来

[em04]

大家千万不要笑话。

mPE5EPgf.rar (23.03 KB, 下载次数: 26)

2005-1-14 16:28 上传

点击文件名下载附件
再请教斑竹一个关于查找替换的问题

守柔

以下是引用cmyy在2005-1-14 16:28:00的发言：

我编得太复杂了，实在不好意思拿出来

我觉得楼主的功力不错!

只是如此代码来解决我一时还没有弄清楚,你的所谓同义词,是什么意思?是WORD中的文本快捷菜单下的同义词-同义词库么?我感觉不象.

楼主的意思,似乎在一次性替换多个指定条件的文本,比如,在文档中替换用户指定的数个文本,可以为查找,也可以为替换,即将多次查找和替换整合在一块儿,是吗?

请楼主明示.

Robinhuang

以下是引用守柔在2005-1-14 10:24:00的发言：

呵呵,等我把<守柔WORD编程代码集>有机会上传的话,你可以尽情地看一下.

二) 查找与替换的基本代码用法之二

'* +++++++++++++++++++++++++++++++++++++++

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub Example() Dim FindChar As String, Fcount As Integer, RepChar As String On Error Resume Next Application.ScreenUpdating = False '关闭屏幕更新 FindChar = "《" RepChar = "[" With ActiveDocument.Content.Find '此处针对全文档 Do While .Execute(findtext:=FindChar) = True '如果发现 Fcount = Fcount + 1 '计数器 Loop If MsgBox("文档中共发现了" & Fcount & "个" & FindChar & vbCrLf _ & ",按Yes键将进行下一步的替换工作,按No取消", vbYesNo + vbInformation) = vbYes Then .Execute findtext:=FindChar, Wrap:=wdFindContinue, replacewith:=RepChar, Replace:=wdReplaceAll End If End With Application.ScreenUpdating = True '恢复屏幕更新 End Sub '----------------------

最好结合你的实例(上传一个附件),否则易走弯路,OK?

请教两个问题：

1.<守柔WORD编程代码集> 这个整理好了吗？

2.上述程序划线部分我的疑问:如何确定不会重复查找！

cmyy

是我没说清楚，我这所谓的同义词，就是由用户任意自己定义一组词语，然后在文档中对这一组词语进行查找和把这一组词语统一替换为一个词语。

守柔

以下是引用cmyy在2005-1-16 17:13:00的发言： 是我没说清楚，我这所谓的同义词，就是由用户任意自己定义一组词语，然后在文档中对这一组词语进行查找和把这一组词语统一替换为一个词语。

我的想法，具体是否可行，还请cmyy考证。

通过多次查找的方式，可以循环查找用户指定的词语，并将其标记为特殊格式（以区分原有格式，但为统一格式），如果需要选定所有这些特殊格式的词语，可以考虑右击文字的快捷菜单/选择格式相同的文本（你可录个宏）。

如果为替换，可以通过我上面的例子，将特殊格式的文字替换为指定的内容。

不知是否可行？关于这类似的替换功能，你可以搜索一下我的一个贴子《汉字拼音解决方案》中有相似代码。http://club.excelhome.net/viewthread.php?tid=72844

cmyy

这个思路不错吗，早向你请教就好了，就不用走那么多弯路了

但是你那个工程需要密码才能看

[em06]

[此贴子已经被作者于2005-1-16 19:56:24编辑过]