FOR EACH loStoryRange IN loMSWord.Documents("Document Name").StoryRanges

loStoryRange.FIND.Execute('\*\',,, .T.,,, .T., 1)

* Store text found based upon the executed search.
*
lcFoundText = loStoryRange.TEXT
*do stuff
endfor