如何将Word文档中多余的重复内容自动删除？

konamist

最近我遇到了这样一个问题：在一篇Word文档中当中有大量重复的内容，要求仅保留一处，删除其余重复的部分。请问各位高手，在Word中这一过程是否可以自动完成？先谢谢了！（文档有相当的大，手工做要很长的时间，而且不一定准确。）

cxffxc

将第一处要保留的文本不选中，然后选中后面的全部文本，用“替换”操作可以实现。

山雀

替换

konamist

问题在于重复的内容不止一项，比如说该文档中有很多的“A”、很多的“B”、很多的“C”、……那么如何保留第1个“A”、“B”、“C”、……而把其他多余的都去掉？

山雀

还是“替换”...... ？？？？？？？

konamist

替换我当然是知道的，问题是内容非常多，查找替换仍然很麻烦，有没有简便一些的方法呢？

konamist

谢谢版主

惊叹不已

下面是我修改了录制宏的代码 Do d = InputBox("请输入要替换的内容", "替换") If d = "" Then Exit Do Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1 Selection.Find.ClearFormatting With Selection.Find .Text = d .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.Execute With Selection.Find .Text = d .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Loop