请教在同一表单中怎样将一个RTF文本域的内容赋值给一个文本域呢

请问在同一表单中怎样将一个RTF文本域的内容赋值给一个文本域呢？
在一个表单aa中，有一个RTF的文本域，该域的内容是另一个表单bb传过来得值，我想在当前表单aa中，在设一个文本域，来获得rtf文本域的内容，并且这个文本域只能获得rtf域的内容，用户不可以编辑。
不知道怎么做了~哎

------解决方案--------------------
CS下：
Dim item As NotesItem
Set item = doc.GetFirstItem(RTF域)
rtfvalue$=item.text来获得RTF域的内容
然后用FieldSetText方法给计算域a赋值，用户编辑不了
BS下：
用innerText取得RTF域的内容，然后赋给另一个文本域
令这个域不可编辑的方法有二：一是在域属性里写readonly,二是在域的Onfucus事件里写：this.blur();
------解决方案--------------------
在文本域下写：@Abstract([TextOnly];15360; " "; "body ")
body是rtf域