「求解决方案」用对话框（@Dialogbox）调出的Form不能使用RichText？

遇到的问题如题所示，需求如下。
1.有一本docuoment，业务上已经不能编辑，所以整个document的编辑不能用。
2.其中有一个field，客户想要就需求1的不能编辑的document而言，可以调出一个子画面，在子画面里仅有这一个field，并且可以编辑（达到其他field不可编辑的效果）。
3.我试图用@Dialogbox调用了某个仅含需求2field的Form，并且可以编辑。但如果field是text的话，可以实现。field是richtext的话，则无法在@Dialogbox时进行文本的样式编辑及拖动添加附件等操作，故而无法达到客户需求。

求高手给出解决方案。 --------------------编程问答-------------------- 【修改按钮】：
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim strUNID As String

Set db=session.CurrentDatabase
Set doc=ws.CurrentDocument.Document
strUNID=doc.UniversalID
Set doc=db.GetDocumentByUNID(strUNID)

If ws.DialogBox("subDlgEdit", True,True,True,False,False,False,"",doc,True,True) Then
Call  doc.Save(True,False)
Call  ws.CurrentDocument.Document.replaceItemValue("SaveOptions","0")
Call  ws.CurrentDocument.Close()
Set doc=db.GetDocumentByUNID(strUNID)
Call  ws.EditDocument(True,doc)
End If

End Sub

定制对话框OK/Cancel按钮：
【OK】：
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Call ws.CurrentDocument.Document.ReplaceItemValue("Form","你的被修改文档的Form")
Call ws.CurrentDocument.Save()
Call ws.CurrentDocument.Close()
Call ws.RefreshParentNote()

End Sub

【Cancel】：
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Call ws.CurrentDocument.Close()
End Sub

--------------------编程问答-------------------- 另注意，对话框里的RTF字段名和文档本来的必须相同，但字段类型最好是选“Rich Text Lite”,方便用户在对话框里选附件。

补充：企业软件 ,  Lotus