копирование rich text

[k85]

а есть возможность данные из rich text скопировать в другую форму, но без потери форматирования и всех данных? пробую так, но копирование какое-то кривое получается

Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase   
    Dim uidoc As NotesUIDocument       
    Set db = session.CurrentDatabase
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document
    Dim docn As NotesDocument       

    Set docn = db.CreateDocument
    Call docn.ReplaceItemvalue("Form", "NEWForm")
    Call docn.ReplaceItemValue("polenew", Doc.GetItemValue("polenew")(0))
    Call docn.ReplaceItemValue("Body", Doc.GetItemValue("Body")(0))
    Call docn.ComputeWithForm(False, True)
    Call ws.EditDocument(True, docn)
    
    
End Sub

 

[lmike]

а есть возможность данные из rich text скопировать в другую форму, но без потери форматирования и всех данных? пробую так, но копирование какое-то кривое получается

Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase  
    Dim uidoc As NotesUIDocument      
    Set db = session.CurrentDatabase
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document
    Dim docn As NotesDocument      

    Set docn = db.CreateDocument
    Call docn.ReplaceItemvalue("Form", "NEWForm")
    Call docn.ReplaceItemValue("polenew", Doc.GetItemValue("polenew")(0))
    Call docn.ReplaceItemValue("Body", Doc.GetItemValue("Body")(0))
    Call docn.ComputeWithForm(False, True)
    Call ws.EditDocument(True, docn)
   
   
End Sub

у NotesRichTextItem есть метод

Ссылка скрыта от гостей

 

[k85]

у NotesRichTextItem есть метод

Ссылка скрыта от гостей

так пробовал
но в строке
If ( rtitemA.Type = RICHTEXT And rtitemB.Type = RICHTEXT ) Then
object variable not set

 

[lmike]

так пробовал
но в строке
If ( rtitemA.Type = RICHTEXT And rtitemB.Type = RICHTEXT ) Then
object variable not set

РТ откудова берутся?

 

[k85]

Set rtitemB = doc.GetFirstItem("FIELD")
 Set rtitemA = New NotesRichTextItem(newdoc, "Body")
 Call rtitemA.AppendRTItem(rtitemB)

вот в таком виде добавляется ок.
спасибо

 

[k85]

в таком виде не подтягивается в новое поле вычисляемая часть, в richtext (1) есть вычисляемые поля и они не копируются в richtext (2)

 

[Domino-Designer]

Set notesItem = notesItem .CopyItemToDocument( document , newName$ )

в таком виде не подтягивается в новое поле вычисляемая часть, в richtext (1) есть вычисляемые поля и они не копируются в richtext (2)

Что что у вас там? Вычисляемый текст?

Что же на самом деле мы хотим?

Попробую угадать.
Есть документ1 с RT полем, в котором форматирование и вычисляемый текст\хотспот\и т.д. по неким полям этого документа
Хотим это поле в другом документе2, но что бы оно было пересчитано уже по его полям.

Так?

 

[Мыш]

Если в UI, то можно попробовать метод ImportItem класса NotesUIDocument.

 

[k85]

Set notesItem = notesItem .CopyItemToDocument( document , newName$ )



Что что у вас там? Вычисляемый текст?

Что же на самом деле мы хотим?

Попробую угадать.
Есть документ1 с RT полем, в котором форматирование и вычисляемый текст\хотспот\и т.д. по неким полям этого документа
Хотим это поле в другом документе2, но что бы оно было пересчитано уже по его полям.

Так?

в первой форме оно сформировано, но надо скопировать полностью в другую форму со всеми вычислениями и в форме 2 не надо его никак изменять

 

[lmike]

в первой форме оно сформировано, но надо скопировать полностью в другую форму со всеми вычислениями и в форме 2 не надо его никак изменять

в последних нотусах есть конвертация в ПДФ, возможно так
ещё есть

Ссылка скрыта от гостей

с инмемори не будет работать