用VBA一次查找到文档中各不相同的重复句子、并用红色标识

13907933959

duquancai 发表于 2016-8-9 19:17
那一句？请举例，自己认真核对吧！你自己查找吧！标红了的，都是重复了2次及以上。

前辈好！
如：“灵素节注类编”，有的全部标红了，有的只标红了：灵素节注类，这5个字，而后面的“编”字没有标红。
“难经正义”，有的全部标红了，有的只标红了：难经正，这3个字，而后面的“义”字没有标红。
“本草经解”，有的全部标红了，有的只标红了：本  经解，这3个字，而第二个“草”字没有标红。
“严氏济生方”，有的全部标红了，有的只标红了：氏济生方，这4个字，而前面的“严”字没有标红。
……

duquancai

13907933959 发表于 2016-8-9 19:46
前辈好！
如：“灵素节注类编”，有的全部标红了，有的只标红了：灵素节注类，这5个字，而后面的“编” ...

没有你说的情况，请你返回去再看18楼的代码，仔细核对你用的代码是否和现在18楼的一致？？？？

13907933959

duquancai 发表于 2016-8-9 20:03
没有你说的情况，请你返回去再看18楼的代码，仔细核对你用的代码是否和现在18楼的一致？？？？

前辈好！

这是我刚刚用18楼的代码，在附件2上运行的效果，请注意看附件2“下部”。

duquancai

13907933959 发表于 2016-8-9 20:16
前辈好！这是我刚刚用18楼的代码，在附件2上运行的效果，请注意看附件2“下部”。

请看我运行的结果吧：附件！我编辑过代码，你确定是现在用的18楼最新的代码？

13907933959

duquancai 发表于 2016-8-9 20:30
请看我运行的结果吧：附件！我编辑过代码，你确定是现在用的18楼最新的代码？

前辈好！
这真是奇了怪了，在您给我的附件2上运行18楼的代码，可成，用我自己的附件2就是不成，两个都反复测试了3遍，结果都一样。前辈、您比我懂得多，劳您说说这是什么原因？？？

duquancai

13907933959 发表于 2016-8-9 20:52
前辈好！
这真是奇了怪了，在您给我的附件2上运行18楼的代码，可成，用我自己的附件2就是不成，两个都反 ...

不知道！！！！！！！！！！！！！！！

13907933959

duquancai 发表于 2016-8-9 21:02
不知道！！！！！！！！！！！！！！！

啊！前辈呀！您都不知道，哪我就惨了！那现在只有去吃晚饭，明天也许前辈就会知道了！！！一定要赐教！！！

13907933959

前辈好！
抱歉！抱歉！昨天忙昏了头，劳累了您一整天，连声谢谢都忘了说就下线了，真是罪过、罪过，万忘前辈见谅！每当在下需要帮助之时，总是得到前辈的出手相助，并能完美的解决问题，在下万分感谢！！！前辈真是：艺高品优，令人敬佩！！！
另外、再问一下前辈、昨天后面碰到的这个问题和我使用的操作系统或Word文档的版本是否有关？我用的是XP系统，文档的版本是Office2003SP3_5in1_20130112_DownG.com 不知您使用的是……？？

13907933959

duquancai 发表于 2016-8-9 21:02
不知道！！！！！！！！！！！！！！！

前辈好！
刚才发现用18楼的代码，在11楼的“新模拟附件”运行，发现有：“为胆结石其形成与胆肝相关”，“别开0.5至1厘米的三个小”，两处不能全部查找到标红，而用16楼的代码则可以。

cangbei

代码有问题，我看不懂，但是用事实说话，为何中间会有留空的字出现呢，而且标红的文字也么有重复出现过啊，这个不应该是按照一句话出现的吧，而是根据词的重复出现的？那重复率就太高了。