Word删除重复行

常扬帆

删除重复行，部分有图片，并且图片位置不一，为了便于说明问题，把内容相同的标上了相同颜色。查找替换的方法时间长、删不干净。麻烦哪位写个宏。十分感谢！

蜀中草莽

1. 所有图片转为嵌入
2.  ^p  换成 ^p^p
3. 勾选通配符    (^13[!^13]@^13)(*)\1   换成  ^13\1\2  （可能需要多次替换 直到替换为 0）
4. ^13{1,}       替换成  ^13

常扬帆

蜀中草莽 发表于 2023-12-23 08:17
1. 所有图片转为嵌入
2.  ^p  换成 ^p^p
3. 勾选通配符    (^13[!^13]@^13)(*)\1   换成  ^13\1\2  （可 ...

谢谢您！不过：
1、我的是Word2016，按照您的步骤没有成功；
2、文件有大几百页，速度估计会有问题。

蜀中草莽

常扬帆 发表于 2023-12-23 09:44
谢谢您！不过：
1、我的是Word2016，按照您的步骤没有成功；
2、文件有大几百页，速度估计会有问题。

几百页 查找替换  就有点慢了  

batmanbbs

PS：楼主提供文档测试没有问题，具体还需要看楼主文档全文才行

常扬帆

batmanbbs 发表于 2023-12-23 17:15
PS：楼主提供文档测试没有问题，具体还需要看楼主文档全文才行

谢谢您！可惜我不会抄，我只会复制粘贴，麻烦您给文本的？辛苦您！衷心感谢您！

gwjkkkkk

请参考。。。

常扬帆

gwjkkkkk 发表于 2023-12-23 20:12
请参考。。。

衷心感谢您！279页的Word(含图片)，秒杀！

shduy

batmanbbs 发表于 2023-12-23 17:15
PS：楼主提供文档测试没有问题，具体还需要看楼主文档全文才行

感谢，好用

常扬帆

gwjkkkkk 发表于 2023-12-23 20:12
请参考。。。

您好！您的代码真的牛，上千页的文档处理速度很快，处理得也很干净。不过，我还有另一个请求，就是能不能把变换了字体的行留下来(本来是重复行，不过是变换了字体而已)，见复件。图片如下：