expanding the selection to the first sentence, made the difference. Then I was able to save the selection as a variable

o.Selection.Expand(3)  && expands the selection to get the whole sentence
*o.Selection.Copy
o.Selection.Text
myWord = ALLTRIM(o.Selection.Text)
titleRange = myWord

>Hello, I use Microsoft Office Automation by Granor and Martin, and have had great luck over the years. But I recently ran into a problem with the FoxPro automation of Word, using find.
>This works:
>

>oWord.Selection.WholeStory
>oWord.Selection.Fields.Unlink
>oWord.Selection.HomeKey(wdStory) && remove all hypinks
>

>
>The following sometimes works:
>

>** go to top of doc first
>oWord.Selection.Find.ClearFormatting && next find
>oWord.Selection.Find.Replacement.ClearFormatting
>With oWord.Selection.Find  && remove those pictures
>  .Text = "^g"
>  .Replacement.Text = " "
>EndWith
>IF oWord.Selection.Find.Found
>oWord.Selection.Find.Execute(wdReplaceAll)
>endif
>*WAIT WINDOW "pictures"
>

>
>
>And this never works and I don’t know why.
>

>oWord.Selection.HomeKey(wdStory)  && go home
>oWord.Selection.Find.ClearFormatting  && ready for find and delete
>oWord.Selection.Find.Replacement.ClearFormatting
>With oWord.Selection.Find
>  *.Text = "Print | Close Window"
>  .Text = "Print"
>  .Replacement.Text = " "
>  .replacement.paragraphFormat.leftIndent = 12
>  lFound = .execute( , , , , , , , , , , wdReplaceAll)
>*********************1       5        10*************
>EndWith
>oWord.Selection.Find.Execute(wdReplaceAll)
>

>
>On the other hand this always works:
>

>oWord.Selection.HomeKey(wdStory) && go home
>oWord.Selection.Find.ClearFormatting
>oWord.Selection.Find.Font.Bold = .F.
>oWord.Selection.Find.Replacement.ClearFormatting
>With oWord.Selection.Find
>  .Text = ""
>  .Replacement.Text = " "
>  .Forward = .F.
>  .Format = .F.
>  .MatchCase = .F.
>  .MatchWholeWord = .F.
>  .MatchWildcards = .F.
>  .MatchSoundsLike = .F.
>  .MatchAllWordForms = .F.
>EndWith
>oWord.Selection.Find.Execute
>oWord.Selection.Copy
>	** file 22
>*WAIT WINDOW "first bold title"
>

>
>Another problem I have faced, is that when the code does “find” something (as in the above), I have not been able to figure out how to pass the found text to a variable? As a result I resorted to the following, since the found text is always at the start of the document. It would be great to know how to pass found text to a variable.
>
>

>titleRange = ALLTRIM(oWord.ActiveDocument.Range(0,50).Text)
>

>
>Since I cannot upload a sample word doc I am attaching a JPEG to show what one looks like,
>
>Thanks,
>Steve Elster