S
StarikStarik2705
в общем такая ситуация что я даже и не знаю. есть РТ поле с вложением и плюс текст. Задача состоит в том что бы скопировать отдельно в другое поле-РТ текст, в третье Отдельно аттачи. я написал вот такую штуку:
set Appendix = rt.Copyitemtodocument(doc, Appendix.Name)
в Appendix - лежит и текст и аттачи.
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink
Dim rtrange As NotesRichTextRange
Set rtnav = Appendix.CreateNavigator
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
Set rtrange = body.CreateRange
Call rtrange.SetBegin(rtnav)
Call rtrange.Setend(rtnav)
'MsgBox Appendix.Getunformattedtext()
Call rtrange.FindAndReplace( rtrange.Textparagraph , "" , RT_REPL_ALL )
после всех махинаций мсжбокс уверяет меня что текст я затёр в РТ поле. Но сохранение мне показывает что ты не прав.
'MsgBox Appendix.Getunformattedtext()
Call appendix.Update()
вопрос: как затереть в поле с вложением и текстом, текст?
set Appendix = rt.Copyitemtodocument(doc, Appendix.Name)
в Appendix - лежит и текст и аттачи.
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink
Dim rtrange As NotesRichTextRange
Set rtnav = Appendix.CreateNavigator
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
Set rtrange = body.CreateRange
Call rtrange.SetBegin(rtnav)
Call rtrange.Setend(rtnav)
'MsgBox Appendix.Getunformattedtext()
Call rtrange.FindAndReplace( rtrange.Textparagraph , "" , RT_REPL_ALL )
после всех махинаций мсжбокс уверяет меня что текст я затёр в РТ поле. Но сохранение мне показывает что ты не прав.
'MsgBox Appendix.Getunformattedtext()
Call appendix.Update()
вопрос: как затереть в поле с вложением и текстом, текст?