使用“宏”删除WORD中的重复字

有如下文档，要求删除里面的重复字符。

一、使用“开发工具”创建“宏”

二、建立宏。主要代码如下

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

三、运行宏

四、结果如下