General information
Category:
COM/DCOM and OLE Automation
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
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only