Замена символа абзаца в строке richtext

2013-12-09T13:04:46Z

Задача - заменить в richtext поле каждый абзац каким-то символом, например - тегом переноса строки.
Вот решение на лотусскрипте:

Set rtitem = doc.GetFirstItem("СОДЕРЖАНИЕ_")
sText$ = rtitem.Text
string1 = Chr(13)
string2 = "
"
While Instr(1, sText$, string1) ' заменяем абзац на тег.
sText$ = Left(sText$, Instr(1, sText$, string1) - 1) + string2 + Mid(sText$, Instr(1, sText$, string1) + Len(string1))
Wend

Форум компьютерной помощи — Замена символа абзаца в строке richtext

Замена символа абзаца в строке richtext