Hold it ... I figured it out.

Just had to put in ... .MoveRight(,1) ... to break the extended selection.

Then it worked fine.

Thanks again for your help.



>Well, having solved that problem ...
>
>Here is the next ... same sort of idea ...
>
>This time, I would like to UNDERLINE the data portion of the entry.
>
>This code underlines both the prompt and the data. (No good)
>
>Any tips on this ?
>
>
>
>oRange = oTable.Rows[1].Cells[2].Range
>oRange.InsertAfter("Referral: "+ALLTRIM(qheads.referral))
>oRange.ParagraphFormat.Alignment=wdAlignParagraphLeft
>oRange.Select
>oWord.Selection.FormattedText.Underline
>WITH oWord.Selection
> .Homekey(wdSelectionRow)
> FOR j = 1 TO 10
> .MoveRight(wdCharacter,1,wdExtend)
> ENDFOR
> .Font.Bold=.t.
> .FormattedText.Underline=wdUnderlineNone
>
> FOR j = 1 TO LEN(ALLTRIM(qheads.referral))
> .MoveRight(wdCharacter,1,wdExtend)
> ENDFOR
> .FormattedText.Underline=wdUnderlineSingle
>ENDWITH