Подсветить слово в документе Word из Excel

Dim Number, x As Variant
Dim objWrdApp As Object, objWrdDoc As Object
Dim avFiles
    avFiles = Application.GetOpenFilename _
    ("Word files(*.doc*),*.doc*", 1, "Выбрать файлы", , True)
    If VarType(avFiles) = vbBoolean Then
        Exit Sub
    End If
    
For Each x In avFiles
        Set objWrdApp = CreateObject("Word.Application")
        objWrdApp.Visible = True
        
        Set objWrdDoc = objWrdApp.Documents.Open(x)
        For Each Number In Selection
        With objWrdDoc.Content.Find
       .Text = Number.Value
       .Replacement.Text = ""
        .Replacement.Highlight = True
        .Replacement.HighlightColorIndex = vbYellow
       .Replacement.Font.Bold = True
       .Execute Replace:=2
        End If
        End With
        Next
     objWrdDoc.Close True
     objWrdApp.Quit
     Set objWrdDoc = Nothing: Set objWrdApp = Nothing
Next
End Sub

For Each x In avFiles
        Set objWrdApp = CreateObject("Word.Application")
        objWrdApp.Visible = True
        Set objWrdDoc = objWrdApp.Documents.Open(x)
        Word.Application.Options.DefaultHighlightColorIndex = wdYellow
        For Each Number In Selection
        With objWrdDoc.Content.Find
        If Len(Trim(CStr(Number.Value))) <> 0 Then
        .Highlight = True
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Trim(CStr(Number.Value))
        .Replacement.Text = ""
        .Format = False
        .Replacement.Highlight = True
        .Replacement.Font.Bold = True
        .Execute Replace:=2
        
        End If
        End With
        Next
     objWrdDoc.Close True
     objWrdApp.Quit
     Set objWrdDoc = Nothing: Set objWrdApp = Nothing
Next