300分求RTF域如何操作？顶者有分！！

[sd_lichangyou]

在代理中，我想把一个文档的RTF域值传给另一个新建得文档RTF域，如何做呀？

如果是文本域直接赋值就可以，但用同样的方法处理RTF域时就出问题，服务器报“变量没有
container”，如果要建container，该如何建呀？ 还是技术上根本上就不可行？

好像最多只能给100！解决了问题，另开贴给分！顶者有分！

[灰大师]

rtf的内容如果只是文本的话，付给另一个rtf,很简单，帮助里就有
container不知道是啥

[maplescloud]

如果RTF只包含文本信息的话，可以把它单纯看做一个NOTESITEM，用NOTESITEM.TEXT直接赋值看看。
还有一种办法是REMOVE掉目的文档的RTF，再产生个新的，再把源RTF的append过去。

[sd_lichangyou]

我试试看

[ybfqlyq]

頂啦。。/。。。

[hanwenjuan3]

顶！

[showhigh]

用notesitem应该可以吧

[dugu9j]

只要原来rtf域没有附件的dd，直接就
newdoc.newrtf = olddoc.oldrtf

不然就得把附件判断类型、拆离本地，然后传给新的rtf域。我是这么做得，不知道有没有大虾有更好的bf

[心雪峰]

up up up

[anp824]

用item是可以的

[jhing39]

dim item as NotesRichTextItem
dim mstring as string
Set item=doc.GetFirstItem("域名称")
mstring=item.Getformattedtext(False,40)

[北京老苏]

notesDocument.CopyItem(item，newName$)试试这个

[sylzi]

Set rtitem = xmlDoc.GetFirstItem( "域名" )
If ( rtitem.Type = RICHTEXT ) Then
Forall e In rtitem.EmbeddedObjects
If ( e.Type = EMBED_ATTACHMENT ) Then
Call e.ExtractFile( e.name )
filename = e.name
Call e.Remove
End If
End Forall
End If

Dim rtitem2 As NotesRichTextItem
Set rtitem2 = New NotesRichTextItem( Doc, "域名" )
Dim object As NotesEmbeddedObject
Set object = rtitem2.EmbedObject( EMBED_ATTACHMENT, "",文件路径)

[ibm123]

不管RTF域有没有附件/链接/OLE，均使用以下两种方式任一即可：


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

or

Set notesItem = notesDocument.CopyItem( item, newName$ )

[ding_2001]

查帮助就可以啦！

[灰大师]

怎么还不结贴啊

[sd_lichangyou]

对不住了，这两天比较忙，没时间看

[xuxuwaley]

notesDocument.CopyItem(item，newName$)可以,俺一直用它

[gui_yingzi]

Dim item As NotesItem
Set item = doc1.GetFirstItem( "域名1" )
Call item.CopyItemToDocument( doc2, "域名2" )

[Mc_Hill]

up

[hell_wolf]

up