Найти все слово и заменить на документе Word

Question

У меня есть код Excel VBA для поиска и замены слова в документе Word.У меня есть список слов, чтобы найти в Excel (столбец 1) и заменить его другим словом, найденным в столбце 2. Но моя проблема заключается в том, что мне нужно только найти совпадение целое слово, например, HAP Мне нужно только заменить все слова HAP, но намой код также заменить слово, как Глава.

Я уже пытался истинно MatchWholeWord, но все еще меняется, если слово является частью другого слова.

wDoc.Application.Selection.Find.ClearFormatting
    wDoc.Application.Selection.Find.Replacement.ClearFormatting

    For i = 2 To lr

        With wDoc.Application.Selection.Find

            .Text = ws.Cells(i, 1).Value
            .Replacement.Text = ws.Cells(i, 2).Value
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False

        End With

        wDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll

    Next

Я хочу, чтобы мойРезультаты, чтобы найти точное слово соответствия, а не часть слова.Кто-нибудь может мне с этим помочь.Спасибо