макрос для создания слова с использованием строк Excel и поиска определенного слова и выделения слова

Question

Я хочу найти текст «excel» и выделить его желтым цветом во всем текстовом документе.

Я пробовал что-то вроде следующего:

With ActiveDocument.Content.Find 
 .ClearFormatting 
 .Font.Bold = True 
 With .Replacement 
 .ClearFormatting 
 .Font.Bold = False 
 End With 
 .Execute FindText:="", ReplaceWith:="", _ 
 Format:=True, Replace:=wdReplaceAll 
End With

Но это не работает.

Это код, который я использую для генерации слова из листа Excel, но при этом я хочу найти слово и выделить его.

Sub WordTemp()
    Dim TextEnter As String
    Dim RowNum As Integer
    Dim wordApp As Object
    Dim LastRow, LastCol, CurrentRow, CurrentCol As Long

    Set wordApp = CreateObject("word.application")
    wordApp.Visible = True

    wordApp.Documents.Add _
    Template:="", _
    NewTemplate:=False

    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

    For CurrentRow = 2 To LastRow
        TextEnter = ""

        For CurrentCol = 1 To LastCol
            TextEnter = TextEnter & Cells(1, CurrentCol).Value & "   " & Cells(CurrentRow, CurrentCol).Value & vbCrLf
        Next CurrentCol

        wordApp.Selection.TypeParagraph
        wordApp.Selection.TypeText Text:=TextEnter
        wordApp.Selection.TypeText Text:="Thumbnail:" & vbNewLine & "<<Insert thumbnail here>>" & vbNewLine & "SAT: " & vbNewLine & vbNewLine & "LAT: " & vbNewLine & vbNewLine & "Revised Category: " & vbNewLine
        wordApp.Selection.InsertBreak Type:=7
    Next CurrentRow


End Sub

Слово «excel» должно быть найдено (все случаи) и выделено желтым цветом.