利用VBA代码将WORD文档中的指定字符自动标红

需求描述：

        现有一个WORD文档，需要将其中的几个字符串标红加粗。如：将"aaa","bbb","ccc"等3个字符串全部标红加粗。

---

1. Word——开发工具——Visual Basic；在弹出窗口中点：插入——模块；
2. 在弹出窗口中粘贴以下代码：

   Sub highlight()
   Dim strarr As String
   strarr = "aaa|bbb|ccc|"
   a = Split(strarr, "|")
   b = UBound(a)
   
     For i = 0 To b
            
       Selection.Find.ClearFormatting
       Selection.Find.Replacement.ClearFormatting
       With Selection.Find.Replacement.Font
           .Bold = True
           .Color = wdColorRed
       End With
       With Selection.Find
           
            
           .Text = a(i)
           .Replacement.Text = a(i)
           .Forward = True
           .Wrap = wdFindAsk
           .Format = True
           .MatchCase = False
           .MatchWholeWord = False
           .MatchByte = True
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
           
       End With
       Selection.Find.Execute Replace:=wdReplaceAll
       Application.DisplayAlerts = False
       Next i
   End Sub
   

   注意：将第3行“”中的字符换成你所需要标红的字符串，用“|”隔开；

3. 关闭代码窗口，回到WORD。点击：开发工具——宏——highlight——运行；

4. 任务完成完成