Sub Highlighting()
Dim oChanges As Document, oDoc As Document
Dim oTable As Table
Dim oCell As Cell
Dim oRng As Range
Dim rFindText As Range
Const sFname As String = "C:\Path\Table.docx"
    Set oDoc = ActiveDocument
    Set oChanges = Documents.Open(Filename:=sFname, Visible:=False)
    Set oTable = oChanges.Tables(1)
    For Each oCell In oTable.Range.Cells
        If Len(oCell.Range) > 2 Then
            Set oRng = oDoc.Range
            Set rFindText = oCell.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
        End If
    Next oCell
lbl_Exit:
    oChanges.Close 0
    Set oChanges = Nothing
    Set oDoc = Nothing
    Set oRng = Nothing
    Set rFindText = Nothing
    Exit Sub
End Sub