Question

我在Lotus Notes上遇到特定任务的问题。我必须复制一个富文本字段编辑它并粘贴到另一个富文本字段中。但是当我编辑内容时，文本样式消失了。我尝试过使用这个解决方案：

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.local.Item与lotus.domino.RichTextItem不兼容

任何人都可以帮我完成任务吗？谢谢。

Answer 1

您没有指定编辑richtext数据的方式。但如果你通过＆＃34;编辑＆＃34;意味着＆＃34;以编程方式对＆＃34;进行更改，您可以使用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

编辑richtext字段并将其编辑粘贴到另一个richtext字段中

1 个答案: