如何同时查找并替换多个不同的文本

爬爬虫上海

原来的栏目标题更改了，想把 成功点要、预习指导、预习自测、尝试探索 、拓展训练 直接改成[学习目标]、[经典例说]、[夯实基础]、[能力提升]、[拓展提高]，并取消原来的下划线。

请问怎么用VBA实现？谢谢

cuanju

Sub m1()
    Dim arr, brr, i&
    arr = Array("成功点要", "预习指导", "预习自测", "尝试探索", "拓展训练")
    brr = Array("[学习目标]", "[经典例说]", "[夯实基础]", "[能力提升]", "[拓展提高]")
    For i = 0 To UBound(arr)
        With ActiveDocument.Content.Find
            .ClearFormatting
            .MatchWildcards = True
            .Text = arr(i)
            With .Replacement
                .ClearFormatting
                .Text = brr(i)
                .Font.Underline = wdUnderlineNone
            End With
            .Execute Format:=True, Replace:=wdReplaceAll
        End With
    Next i
End Sub

爬爬虫上海

cuanju 发表于 2020-8-30 08:33
Sub m1()
    Dim arr, brr, i&
    arr = Array("成功点要", "预习指导", "预习自测", "尝试探索", " ...

非常感谢，完美，