如何通过编程使rtf域的内容清空？

ls中如何通过编程使rtf域的内容清空？
我用 replaceItemValue("rtfAttchment";"") 总是报错，还请大虾帮忙 --------------------编程问答-------------------- 可以的.你是怎么在用的.
下面是一个表单里面的按钮.表单有一个RTF域 rtf1.

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument

Set doc = ws.CurrentDocument.Document

Call doc.ReplaceItemValue("rtf1","")

Call doc.Save(True,False)

ws.CurrentDocument.Close



End Sub --------------------编程问答-------------------- Call doc.RemoveItem("RTF_1")
我是这样实现的！ --------------------编程问答-------------------- doc.rtfAttchment = "" --------------------编程问答-------------------- 你的方法只是清除文本,如果彻底清除可以使用:
Function ClearRTFItem(doc  As NotesDocument,strItemName As String)
Dim rtfItem As  NotesRichTextItem
Dim arrEmbeddedObject As Variant
Set rtfItem=doc.getfirstitem(strItemName)
If  Not(rtfItem Is Nothing) Then
If rtfItem.Type<>RICHTEXT Then
Call doc.ReplaceItemValue(strItemName,"")
Else
arrEmbeddedObject= rtfItem.EmbeddedObjects
If Not Isempty(arrEmbeddedObject) Then
Forall o In arrEmbeddedObject
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.Remove
End If
End Forall
End If
Call doc.ReplaceItemValue(strItemName,"")
End If
End If
End Function --------------------编程问答-------------------- 哪个跟你说只能清除文本的？呵呵 --------------------编程问答-------------------- doc.rtfAttchment = ""
 前台运行可能会清除附件,后台运行肯定不会清除附件,它只是在那个RTF域里看不到而已,文档属性里还是可以看到的,保留在那里浪费存储空间,这个都不知道?

补充：企业软件 ,  Lotus