word怎么选择重复的文字

1.怎样让word里不出现重复的字

新建一个宏，写入如下代码： Sub 清除重复（） ' ' 宏在 2010-7-15 由 微软用户 创建 ' Dim str As String Dim bstr As String Dim cf As String Dim i As Long Selection.WholeStory str = Selection.Text For i = 1 To Len(str) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = Mid(str, i, 1) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute If Selection.Find.Found = True Then Selection.Find.Execute Replace:=wdReplaceAll Selection.Text = Mid(str, i, 1) cf = cf & Mid(str, i, 1) End If Next i MsgBox cf End Sub 然后运行下这个宏，重复的汉字保留其中一个，其余全部会被删除。

注意操作前先做好备份，以免没合您要求。