在搜索特定列后，如何使用MS Word VBA代码对具有特定文本的单元格进行着色？

Sub HighlightCells()
    Dim rng As Range
    Dim searchText As String
    
    ' 设置要搜索的文本
    searchText = "特定文本"
    
    ' 设置要搜索的范围，可以是整个文档或特定的表格
    Set rng = ActiveDocument.Content
    
    ' 设置搜索选项，这里使用MatchCase区分大小写
    With rng.Find
        .ClearFormatting
        .Text = searchText
        .MatchCase = True
        .Wrap = wdFindStop
        .Format = True ' 设置为True以便对找到的文本进行格式设置
    End With
    
    ' 开始搜索并对找到的单元格进行着色
    Do While rng.Find.Execute
        rng.Cells.Shading.BackgroundPatternColor = RGB(255, 0, 0) ' 设置背景颜色为红色
    Loop
End Sub