General information
Category:
COM/DCOM and OLE Automation
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
Previous
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