Da warst du grade schneller. Wie du siehst kannst du Start und End eines bestimmten Bereichs auch ermitteln und z.B. in Variablen packen. Für die 3 letzten Absätze im Dokument z.B. so:

Dim rStart As Long, rEnd As Long
rStart = wdDoc.Paragraphs(wdDoc.Paragraphs.Count - 3 + 1).Range.start
rEnd = wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.End

With wdDoc.Range(rStart, rEnd).Find
  '...
End With

Gruß Mr. K.