Option Explicit
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim oDoc As Document
Dim oRng As Range
Dim arrFind
  Set oDoc = ActiveDocument
  arrFind = Array(". ,", "house")
  For lngIndex = 0 To UBound(arrFind)
    Set oRng = oDoc.Range
    With oRng.Find
      .Text = arrFind(lngIndex)
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      Do While .Execute(Forward:=True) = True: oRng.HighlightColorIndex = wdYellow: Loop
   End With
Next lngIndex
lbl_Exit:
  Exit Sub
End Sub