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

cuteword · 发表于 2021-3-31 09:03

你有我的联系方式吧？我发给你。我的机器上几秒钟可以替换完成。

z9bhd · 发表于 2021-3-31 10:05

试试看，我的电脑上运行只需要几秒的时间，只是没把替换后的字符高亮显示

相见是缘8 · 发表于 2021-3-31 10:09

cuteword 发表于 2021-3-31 09:03
你有我的联系方式吧？我发给你。我的机器上几秒钟可以替换完成。

龚老师好！
感谢！因这种类似的文档，是我那学中医的弟弟传过来让我帮忙处理的，还有几十个（以后可能还会有），替换的关键字符也各不相同。如学这个替换不是要很长时间、很难，老师能不能教会我，正所谓 “授人以鱼，不如授人以渔” ！以便以后我碰到类似的问题，能自己解决，省得总要劳烦你和其他的老师！

相见是缘8 · 发表于 2021-3-31 10:48

z9bhd 发表于 2021-3-31 10:05
试试看，我的电脑上运行只需要几秒的时间，只是没把替换后的字符高亮显示

老师好！
因水平原因，抄写很容易出错！能给一个可复制的代码吗？谢谢！

z9bhd · 发表于 2021-3-31 11:02

相见是缘8 发表于 2021-3-31 10:48
老师好！
因水平原因，抄写很容易出错！能给一个可复制的代码吗？谢谢！

代码早就发了，可能在审核吧，所以才截图的，别外文件也发不了，太大了

相见是缘8 · 发表于 2021-3-31 14:39

z9bhd 发表于 2021-3-31 08:04
试试看，
Sub lx()
Dim ar, br(), cr(), wd1 As Document, wd As Document, d As Object

感谢老师！

我运行代码后提示如图片，请你指教！谢谢！

z9bhd · 发表于 2021-3-31 15:28

相见是缘8 发表于 2021-3-31 14:39
感谢老师！我运行代码后提示如图片，请你指教！谢谢！

是不是停在“Set wd = Documents.Open(wd1.Path & "\替换的关键字符.doc")”这一行上？

z9bhd · 发表于 2021-3-31 15:34

相见是缘8 发表于 2021-3-31 14:39
感谢老师！我运行代码后提示如图片，请你指教！谢谢！

我又重新测试一遍没有问题啊

z9bhd · 发表于 2021-3-31 15:43

相见是缘8 发表于 2021-3-31 14:39
感谢老师！我运行代码后提示如图片，请你指教！谢谢！

打开“测试的文档.doc”，把代码复制进去运行就可以了，你是不是打开了“替换的关键字符”的文档？

tcdatongye · 发表于 2021-3-31 17:40

做成替换的表格并加以说明，有的有空格，有的没有空格不知什么东西

曰，曰
~ ～
。））。情况说明清楚才行。如左边小写括号，右边是替换的值

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

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