finding all occurances of text

[zaphy2k2]

hi,

I need to find all text, and highlight it. Find&Replace would be good, but i cant highlight from that(?).

If i do :

With doc.Content
.GoTo what:=wdGoToPage, which:=wdGoToFirst
.Collapse wdCollapseStart
With .Find
.MatchWholeWord = matchWholeWd
.MatchCase = False
Do
.Execute findtext:=aFind, Forward:=True
' I CAN'T GET THE RANGE HERE
Loop While .Found
End With
End With

, and if i use doc.selection after selecting it all, i get the range, but then lose the place in the document ...

can anyone help with this?

cheers,
aaron