多处关键字符替换，要么很慢，要么死机！

z9bhd

相见是缘8 发表于 2021-4-21 14:23
老师好！因文档中的中药材和中药方绝大多的字相同，而这些关键字分布在文档不同的地方，无任何规律。为了 ...

有点没看懂，你要在哪里替换？就是说需要替换的文档在哪里？

相见是缘8

z9bhd 发表于 2021-4-21 15:00
有点没看懂，你要在哪里替换？就是说需要替换的文档在哪里？

不是，在另处的文档。麻烦老师！

相见是缘8

z9bhd 发表于 2021-4-21 15:00
有点没看懂，你要在哪里替换？就是说需要替换的文档在哪里？

老师好！

请看模拟附件！

z9bhd

相见是缘8 发表于 2021-4-22 07:07
老师好！请看模拟附件！

要替换成什么呢？比如“泽泻葶苈商陆海藻蜀漆栝蒌根牡蛎”？还是没搞懂你的意思

相见是缘8

z9bhd 发表于 2021-4-22 08:09
要替换成什么呢？比如“泽泻葶苈商陆海藻蜀漆栝蒌根牡蛎”？还是没搞懂你的意思

哈哈！你被我搞晕了吧！
如是红色的  “泽泻葶苈商陆海藻蜀漆栝蒌根牡蛎” 这些关键字就不替换。
如是黑色的 “泽泻葶苈商陆海藻蜀漆栝蒌根牡蛎” 这些关键字就替换为 “泽泻、葶苈、商陆、海藻、蜀漆、栝蒌根、牡蛎”。

z9bhd

相见是缘8 发表于 2021-4-22 09:41
哈哈！你被我搞晕了吧！
如是红色的  “泽泻葶苈商陆海藻蜀漆栝蒌根牡蛎” 这些关键字就不替换。
如是 ...

真晕了！你提出的问题有问题，要替换的字标注一下没标注的自然就不会替换

相见是缘8

z9bhd 发表于 2021-4-22 11:05
真晕了！你提出的问题有问题，要替换的字标注一下没标注的自然就不会替换

老师好！

按你说的标注的替换，（蓝色的字后加顿号）。

z9bhd

相见是缘8 发表于 2021-4-22 18:57
老师好！按你说的标注的替换，（蓝色的字后加顿号）。

笨码
Sub lx()
    Dim s$
        Do
        With Selection.Find
            .Text = ""
            .Format = True
            .ClearFormatting
           .Font.Color = wdColorBlue
           .Execute
          If .Found = True Then
'            
            Selection.Range.Font.ColorIndex = wdAuto
            s = Selection.Range.Text
            s = s & "、"
            Selection.Range.Text = s
          Else
            Exit Do
          End If
        End With
        Loop
End Sub

z9bhd

相见是缘8 发表于 2021-4-22 18:57
老师好！按你说的标注的替换，（蓝色的字后加顿号）。

复件 模拟附件.zip (22.45 KB, 下载次数: 2)

2021-4-22 20:55 上传

点击文件名下载附件

相见是缘8

z9bhd 发表于 2021-4-22 20:56

老师辛苦了！

你误会了我的意思，不是要这种代码，再说这个代码未能满足要求，还有好多的“中药材名”后也未能加上顿号。因这些“中药材名”，有的是1个字的，有的是2个字的，有的是3个字的，有的是4个字的…，不好判断，只能用你10楼提供的代码。

因我要替换的文档较长（几百页），同时要查找替换的关键词（不同的中药材名）有几千种，用其它的替换方法或代码，要么很慢很慢，要么会卡住。你10楼提供的代码及方法（把“测试的文档”和“替换的关键字符的文档”放在一个文件夹内）可以解决，问题是“中药材名”与“中药方名”中，有很多同样的字，要避开它，所以我才用颜色把它们区分开了（所有的中药方名以改为红色），现在只要你在10楼的代码上，再增加一个判别查找关键词的颜色（如黑色），增加一个替换关键词的颜色（如蓝色）代码，就可以了！