Modules for SWL

最新推荐文章于 2022-12-29 17:55:36 发布
原创最新推荐文章于 2022-12-29 17:55:36 发布 · 635 阅读
0 ·
CC 4.0 BY-SA版权
文章标签：
#each
VB 专栏收录该内容
20 篇文章
订阅专栏
本文详细解析了两个VBA宏代码实例：一是替换选中文字中的元音字母为特定字符，二是标记文档中的特殊符号，并对其进行二次检查。通过具体代码展示了如何在Word文档中进行文本替换及符号标记。
摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >
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:=wdReplaceAll

End Sub



Sub 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