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

413191246se · 发表于 2021-4-2 00:17

相见，z9bhd 老师的意思是，双击“Project（测试的文档）”下面的“ThisDocument”，再点击上面的最左侧图标“查看代码”，然后，将代码复制粘贴到这里，再执行宏（这样就对本文档管事而不是通用文档）。

相见是缘8 · 发表于 2021-4-2 07:02

z9bhd 发表于 2021-4-1 18:49
复制到的位置不对，看到下面那个“测试的文档”了吧？在“word"图标上点一下，再插入模块，或双击再把代 ...

老师好！
按你所教终于可以了，替换也是瞬间完成，厉害！真是对懂的人，“条条道路通罗马” ！第一次接触这类代码，还不明白它的替换原理，看它 “测试的文档” 和 “替换的关键字符的文档” ，必须要在同一个文件夹内，是要调用 “替换的关键字符的文档” 吗？
感谢老师你不厌其烦的指教！衷心感谢！！！

z9bhd · 发表于 2021-4-2 08:32

相见是缘8 发表于 2021-4-2 07:02
老师好！
按你所教终于可以了，替换也是瞬间完成，厉害！真是对懂的人，“条条道路通罗马” ！第一次接 ...

是要调用 “替换的关键字符的文档”

相见是缘8 · 发表于 2021-4-2 09:04

z9bhd 发表于 2021-4-2 08:32
是要调用 “替换的关键字符的文档”

感谢老师指教！

z9bhd · 发表于 2021-4-2 09:11

相见是缘8 发表于 2021-4-2 09:04
感谢老师指教！

指教真谈不上，我也只是信新手而已

相见是缘8 · 发表于 2021-4-2 09:32

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

z9bhd 发表于 2021-4-2 09:11
指教真谈不上，我也只是信新手而已

老师过谦了，我感觉你实力扛扛的！

相见是缘8 · 发表于 2021-4-21 06:39

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

老师好！
有不有办法让这个代码，在查找和替换这些关键词时，可以判别颜色，如查找红色的关键词替换成蓝色的，如这些关键词不是红色的则不替换？

z9bhd · 发表于 2021-4-21 09:21

相见是缘8 发表于 2021-4-21 06:39
老师好！
有不有办法让这个代码，在查找和替换这些关键词时，可以判别颜色，如查找红色的关键词替换成蓝 ...

如果要考虑格式则速度就会慢很多，你可以网上搜索一下代码或录制宏或把附件传上来看一下

相见是缘8 · 发表于 2021-4-21 14:23

z9bhd 发表于 2021-4-21 09:21
如果要考虑格式则速度就会慢很多，你可以网上搜索一下代码或录制宏或把附件传上来看一下

老师好！

因文档中的中药材和中药方绝大多的字相同，而这些关键字分布在文档不同的地方，无任何规律。

为了把这些同样的关键字，便以替换，我用颜色把它们区分开，如黑色的就替换，红色的就不替换。

z9bhd · 发表于 2021-4-21 14:46

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

收到，试试看，不一定搞的好

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

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