Help tweak the Macro

[streetcat]

Hi All,
My requirement: Certain words should not appear in our company publications such as Vice versa, &, in-built, and ad hoc.
What I have done so far: I have created a table with just one Colum (in a word doc, of course!), and typed all the offending words. Then I executed the following macro:

Sub Highlighting()
Dim oChanges As Document, oDoc As Document
Dim oTable As Table
Dim oRng As Range
Dim rFindText As Range
Dim i As Long
Dim sFname As String
sFname = "location of the file"
Set oDoc = ActiveDocument
Set oChanges = Documents.Open(FileName:=sFname, Visible:=False)
Set oTable = oChanges.Tables(1)
For i = 1 To oTable.Rows.Count
    Set oRng = oDoc.Range
    Set rFindText = oTable.Cell(i, 1).Range
    rFindText.End = rFindText.End - 1
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        Do While .Execute(FindText:=rFindText, _
            MatchWholeWord:=True) = True
            oRng.HighlightColorIndex = wdBrightGreen
        Loop
    End With
Next i
oChanges.Close wdDoNotSaveChanges
End Sub

My Requirement: To an extent, the above macro helped me. However, I am unable to easily eliminate offending phrases such as “It is recommended”. If I use quotation marks, macro is unable to find the phrase; if I don’t use the quotes, then macro is searching for all the words (it, is, and recommended).
Can someone help me tweak this macro?
Thanks in advance,
Streetcat

[gmayor]

Change the line

Do While .Execute(FindText:=rFindText, _
            MatchWholeWord:=True) = True

to

Do While .Execute(FindText:=rFindText) = True

[macropod]

Try:

Sub Highlighting()
Application.ScreenUpdating = False
Dim oChanges As Document, oDoc As Document
Dim oTable As Table, oRng As Range, i As Long
Dim rFindText As Range, sFname As String, HiLite As Long
HiLite = Options.DefaultHighlightColorIndex
Options.DefaultHighlightColorIndex = wdBrightGreen
sFname = "location of the file"
Set oDoc = ActiveDocument
Set oChanges = Documents.Open(FileName:=sFname, Visible:=False)
Set oTable = oChanges.Tables(1)
With oDoc.Range.Find
  .ClearFormatting
  .Format = True
  .Forward = True
  .Wrap = wdFindContinue
  .MatchWholeWord = True
  With .Replacement
    .ClearFormatting
    .Highlight = True
    .Text = "^&"
  End With
  For i = 1 To oTable.Rows.Count
    Set oRng = oTable.Rows(i).Cells(1).Range
    With oRng
      .End = .End - 1
      rFindText = .Text
    End With
    .Text = rFindText
    .Execute Replace:=wdReplaceAll
  Next
End With
Options.DefaultHighlightColorIndex = HiLite
oChanges.Close wdDoNotSaveChanges
Application.ScreenUpdating = True
End Sub

PS: When posting code, please use the code tags, inserted via the # button on the toolbar.

[streetcat]

thanks @gmayor and @macropod. The code worked seamlessly :-)