View Single Post
Old February 19th, 2004, 04:49 PM
ric ric is offline
Registered User
Join Date: Aug 2003
Location: Venice, , Israel.
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default Indented paragraph

In my notepad project I inserted the possibility to have an indented paragraph. Unfortunately following code indents all the text:

Private Sub ind_Click()
With ActiveForm.rtfText
.SelStart = 1
.SelLength = Len(.Text) ‘THIS SELECT TO THE END OF TEXT.
.SelIndent = 1440
.SelRightIndent = 1440
End With
End Sub

The wrong line is the one commented (this select ...)I should substitute with a line which apply the modification only at one paragraph end is encountered (I mean, until a "."(dot = end of phrase) is met)
How could I do ?
Thanks in advance.