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

相见是缘8 · 发表于 2021-4-23 07:58

413191246se 发表于 2021-4-2 00:17
相见，z9bhd 老师的意思是，双击“Project（测试的文档）”下面的“ThisDocument”，再点击上面的最左侧图 ...

老师好！
抱歉！现在才看到你的回复，感谢你的指教！

z9bhd · 发表于 2021-4-23 08:08

相见是缘8 发表于 2021-4-23 07:38
老师辛苦了！你误会了我的意思，不是要这种代码，再说这个代码未能满足要求，还有好多的“中药材名”后也未 ...

我试试看，担心如果考虑颜色的话速度方面可能不会如你意

相见是缘8 · 发表于 2021-4-23 08:35

z9bhd 发表于 2021-4-23 08:08
我试试看，担心如果考虑颜色的话速度方面可能不会如你意

代码运行速度慢一点无所为（再慢比手动替换也不知要快多少倍），只要能精准替换，电脑不会卡住死机就成！就是麻烦老师你了！

z9bhd · 发表于 2021-4-23 11:53

相见是缘8 发表于 2021-4-23 08:35
代码运行速度慢一点无所为（再慢比手动替换也不知要快多少倍），只要能精准替换，电脑不会卡住死机就成！ ...

想了半天还是搞不定，建议另发一贴请高手帮忙吧，另外觉得你的思路能不能调整一下？如果每个不用替换的都要去标注颜色会不会太麻烦？能不能把不用替换的文字的特征找出来再用vba来解决？比如后面带“汤”的字符不用替换

相见是缘8 · 发表于 2021-4-23 17:42

本帖最后由相见是缘8 于 2021-4-27 07:04 编辑

z9bhd 发表于 2021-4-23 11:53
想了半天还是搞不定，建议另发一贴请高手帮忙吧，另外觉得你的思路能不能调整一下？如果每个不用替换的都 ...

好！感谢老师你多次帮忙！
这个不用替换的文字的特征，凭我的这点水平还真找不出来，因它们的位置可能那个地方都会有，且汤前面字的多少及文字也各不相同，我也是用手动逐个替换标为红色的！
很长时间都没有看到 “杜老师” 露面，这个也许他有办法！

相见是缘8 · 发表于 2021-4-25 08:00

望大神援手相助！

tcdatongye · 发表于 2021-4-25 15:01

名称有重复的，已去掉。可能有点慢。

相见是缘8 · 发表于 2021-4-26 08:34

本帖最后由相见是缘8 于 2021-4-26 09:09 编辑

tcdatongye 发表于 2021-4-25 15:01
名称有重复的，已去掉。可能有点慢。

老师好！

衷心感谢！

代码基本达愿，速度也较快！但当在真正要替换的文档中替换时（替换的关键字为黑色），代码运行后，发现每组红色字的前面也会加上了顿号，不知这个老师有不有办法修正它？

相见是缘8 · 发表于 2021-4-26 10:06

本帖最后由相见是缘8 于 2021-4-27 06:56 编辑

tcdatongye 发表于 2021-4-25 15:01
名称有重复的，已去掉。可能有点慢。

重复了一个，删除。

tcdatongye · 发表于 2021-4-26 17:02

.Font.ColorIndex = wdred 换成 .Font.ColorIndex = wdBlack就行了

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

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