03.01.2007, 22:33
общий
это ответ
Здравствуйте, Баркалов Александр !
На форму 2 ричтекстбокса и кнопку. Код для кнопки:
===================================================
Private Sub Command1_Click()
Dim sStr1 As String
Dim sStr2 As String
Dim lCnt As Long
lCnt = InStrRev(RichTextBox1.TextRTF, "\par")
sStr1 = Mid(RichTextBox1.TextRTF, 1, lCnt - 1)
sStr2 = Right(RichTextBox2.TextRTF, Len(RichTextBox2.TextRTF) - 1)
RichTextBox3.TextRTF = sStr1 + sStr2
End Sub
=================================================
Похоже так ;-)