Microsoft Word宏：循环选择文本范围并应用现有字符样式

Question

问题：我想知道如何创建循环以查找/选择一系列数据并应用字符样式。每个范围都可以通过开始和结束标记来识别。例如：aCS1a这些aCS1a和zCS1z标记之间的文本使用已存在于Word文档zCS1z中的名为cs1的字符样式进行格式化

到目前为止的过程：（1）数据库导出一个带有“标记”的文本文件，这些标记用于识别段落样式和字符样式的格式。（2）Microsoft Word中的宏将每个段落格式化为特定的段落样式。

需要帮助请：（3）接下来我想选择aCS1a的每个实例要格式化的文本到这里zCS1z和应用字符样式名称cs1之间的aCS1a和zCS1z标签的文本。

例如：克鲁斯蒂小丑学校的aCS1aDean、aCS2aHomer SimpsonzCS2z、aCS1aBSc（荣誉）zCS1z aCS2aSpringfield dzCS2z、aCS1aPhDzCS1z aCS2aShelbyvillezCS2z提出的候选人。

很抱歉，我不得不将“标签”更改为aCS1a和zCS1z，因为在预览中，包围标签的尖括号被弄坏了。

其中：cs1=Microsoft Word文档中的特定字符样式，cs2=Microsoft Word文档中的不同字符样式

宏中的循环可以删除aCS1a zCS1z、aCS2a zCS2z“标记”，因为它们是用适当的字符样式格式化的，或者我可以录制查找/替换宏来删除标记，作为处理的最后一步。

Answer 1

在Stackflow和http://www.pcreview.co.uk/forums/word-select-text-search-delete-macro-t3868065.html等其他网站上使用类似的问题/答案，我能够拼凑出一个冗长而繁琐的宏来完成这个技巧。抱歉，我的起始cs1和结束 /cs1标签周围的尖括号已经消失了。

Sub TaggedTextIsCS1()
'
'Find <cs1>text inbetween</cs1> and replace with Character Style CS1
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("CS1")
    With Selection.Find
        .Text = "\<cs1\>*\</cs1\>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'Find <start> tag and remove
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("CS1")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<cs1>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'Find <end> tag and remove
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("CS1")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "</cs1>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub