Search text for CHR$(13) - split it over lines in table

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Gina - 01 Mar 2005 14:32 GMT

Hi

I am having a problem to spread a text over a couple of lines as soon as a
CHR$(13) is found.

it is found but the rest of the text (could be many lines) doesn't go to the
next line in my word table.

I obviously have to get the rest of the text but I don't know how to do
this! :(
.... I would be very grateful for some code ... please help

_______________________________
If (RSText("Discription").Value <> 0) Then
strToComp= RSText("Discription")
If InStr(1, strToComp, Chr$(13)) Then
.MoveDown Unit:=wdLine, Count:=1
Else
.MoveRight Unit:=wdCell, Count:=1
.MoveDown Unit:=wdLine, Count:=1
.TypeText Text:=RSText("Discription")
End If
End If
_______________________________

Thanks,
Gina

Reply to this Message

Gina - 01 Mar 2005 15:28 GMT

Think I have to add some clarifing lines:

What I wanted to do is to check a text for a paragraph character
if it is found take the left part of the string (up to the paragrapf
character)
and write it to a line
go on checking for further paragraph characters in the rest of the string
left
if a further paragraph character is found read to a certain strTemp and
write it to the next line

this basically should go to the dotted line ... but actually don't have a
clou how
Gina

> _______________________________
> If (RSText("Discription").Value <> 0) Then
> strToComp= RSText("Discription")
> If InStr(1, strToComp, Chr$(13)) Then
> .MoveDown Unit:=wdLine, Count:=1

---> .....................................................................

> Else
> .MoveRight Unit:=wdCell, Count:=1
[quoted text clipped - 6 lines]
> Thanks,
> Gina

Reply to this Message