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

konamist · 发表于 2002-11-27 16:23

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

cxffxc · 发表于 2002-11-27 17:14

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

山雀 · 发表于 2002-11-27 22:48

替换

konamist · 发表于 2002-11-28 10:18

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

山雀 · 发表于 2002-11-28 14:53

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

konamist · 发表于 2002-11-28 17:54

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

konamist · 发表于 2002-11-30 12:37

谢谢版主

惊叹不已 · 发表于 2002-11-29 09:37

下面是我修改了录制宏的代码 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

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