本文共 6272 字，大约阅读时间需要 20 分钟。

Sub aeiou2x()'' aeiou2x Macro' Macro recorded 7/7/2008 by Ye.Tian'    Selection.Find.ClearFormatting    Selection.Find.Replacement.ClearFormatting        With Selection.Find        .Text = "a"        .Replacement.Text = "x"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "e"        .Replacement.Text = "x"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "i"        .Replacement.Text = "x"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "o"        .Replacement.Text = "x"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "u"        .Replacement.Text = "x"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "A"        .Replacement.Text = "X"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "E"        .Replacement.Text = "X"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "I"        .Replacement.Text = "X"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "O"        .Replacement.Text = "X"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll        With Selection.Find        .Text = "U"        .Replacement.Text = "X"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = True        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAllEnd SubSub markSymbolsForRC()'' markSymbolsForRC Macro' Macro recorded 7/7/2008 by Ye.Tian'    Dim sstr1, sstr2        ' add symbol which should check twice; e,g; & and &&    sstr1 = "%,&,"""    sstr1 = Split(sstr1, ",")        ' add symbol which should check only once;    sstr2 = "/n,/f,/0,%s,%S,%a,%A,%d,%D,%f,%F,%e,%E"    sstr2 = Split(sstr2, ",")        Dim counter ' dont mind its name    For Each counter In sstr1        Selection.Find.Replacement.ClearFormatting        Selection.Find.Replacement.Style = ActiveDocument.Styles("tw4winInternal")        With Selection.Find            .Text = counter            .Replacement.Text = counter            .Forward = True            .Wrap = wdFindContinue            .Format = True            .MatchCase = True            .MatchWholeWord = False            .MatchByte = False            .MatchWildcards = False            .MatchSoundsLike = False            .MatchAllWordForms = False        End With        Selection.Find.Execute Replace:=wdReplaceAll                Selection.WholeStory        With Selection.Find            .Text = counter & counter            .Replacement.Text = ""            .Forward = True            .Wrap = wdFindContinue            .Format = False            .MatchCase = False            .MatchWholeWord = True            .MatchByte = False            .MatchWildcards = False            .MatchSoundsLike = False            .MatchAllWordForms = False            If .Execute = True Then                Selection.ClearFormatting            End If        End With    Next counter        For Each counter In sstr2        Selection.Find.Replacement.ClearFormatting        Selection.Find.Replacement.Style = ActiveDocument.Styles("tw4winInternal")        With Selection.Find            .Text = counter            .Replacement.Text = counter            .Forward = True            .Wrap = wdFindContinue            .Format = True            .MatchCase = False            .MatchWholeWord = False            .MatchByte = False            .MatchWildcards = False            .MatchSoundsLike = False            .MatchAllWordForms = False        End With        Selection.Find.Execute Replace:=wdReplaceAll            Next counter    End Sub

转载地址：http://arnpi.baihongyu.com/