編輯richtext字段並將其粘貼到另一個richtext字段

我在使用Lotus Notes上的特定任務時遇到問題。我必須複製富文本字段進行編輯並粘貼到另一個富文本字段中。但是當我編輯內容時，文本樣式消失。我試圖用這個解決方案：編輯richtext字段並將其粘貼到另一個richtext字段

http://www.bobzblog.com/tuxedoguy.nsf/dx/geek-o-terica-15-easy-conversion-of-notes-documents-to-mime-format-part-1

複製HTML，然後編輯內容。但我得到這個另外一個問題：

java.lang.ClassCastException：與lotus.domino.RichTextItem

lotus.domino.local.Item不相容

誰能幫助我與我的任務是什麼？謝謝。

來源

2017-03-09 Moacyr Matos

你需要證明你的代碼，而不僅僅是一個博客帖子與別人的代碼的參考。而且您需要確定拋出錯誤的確切代碼行，以便這裏的人員知道在哪裏查找問題， –

您不指定如何編輯richtext數據。但是如果通過「編輯」的意思是「以編程方式進行更改」，則可以使用NotesRichTextItem類在常規Lotusscript中執行此操作。

我後來寫了一封郵件合併類，它用其他值替換富文本字段中的內容，保持格式。如果你看看代碼，你可能會想出來。

http://blog.texasswede.com/code-mail-mergeform-letters-in-lotuscript/

相關的代碼是在這裏：

Public Function MergedRichText() As NotesRichTextItem 
    Dim range As NotesRichTextRange   
    Dim cnt As Integer 
    Set tempbody = sourcefield 
    Set range = tempbody.CreateRange 
    Forall p In placeholder 
     Call p.ProcessPlaceHolder(sourcedoc, maindoc) 
     If p.text = "" Then 
      p.text = " -- " 
     End If 
     cnt = range.FindAndReplace(p.placeholderstring, p.text, 1+4+8+16)    
    End Forall 
    Call tempbody.Compact 
    Call tempbody.Update 
    Set targetfield = tempbody 
    Set MergedRichText = tempbody 
End Function

來源

2017-03-16 02:35:16

編輯richtext字段並將其粘貼到另一個richtext字段

回答

相關問題