If you are going to pass drive-by questions at least show some effort to post structured code and declare your variables.
Code:
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