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