发信人: xia_pu()
整理人: kamkam(2002-05-01 23:52:56), 站内信件
|
【 在 xia_pu (轻松) 的大作中提到: 】
: 【 在 adyou (zhyad) 的大作中提到: 】
: : 【 在 xia_pu (轻松) 的大作中提到: 】
: : .......
: 谢谢adyou (zhyad)的回答
: .......
以上问题已经解决,现附上解决办法及转载文章:
解决方法:
在更新当前文档的RTF域后
Call doc.Save( False, True )
Call uidoc.close
Set uidoc = WS.EditDocument( True ,doc)
一切正常!
转载文章:
=======================
RTF域完全掌握
1、RTF域是Notes中最重要的域,由于它能够保存文本、声音、图片、动画、附件 以及按钮操作、链接等多媒体信息资料,是Notes不同于普通关系型数据库的重要 特征。
2、RTF域的存储容量仅受机器硬盘限制,可以任意大的文件和程序。
3、当存储各种类型的RTF域,改变域类型成为文本类型时,仅其中的文本字符能 够保存,其他的图片、附件等不能保存在文本类型域中。
4、RTF域在编程中,是不能通过公式函数来计算处理的,只能通过LotusScript来 对其进行复制操作。
5、以下是用LotusScript复制、添加RTF域内容,经测试无误。
Sub Click(Source As Button)
%REM RTF域复制操作
作者:tnda 2000.3.5
http://notes.363.net mail:[email protected]
RTF域值在程序中编辑修改后,只能调用doc.save(false,true)
不能调用uidoc.save,也不能在文档中单击保存按钮,
否则后台修改无效。
并且其修改的内容当前不能显示,只有不保存退出文档,再打开才能显示。
因为RTF域只能通过后台LotusScript修改。
%END REM
Dim uiw As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = uiw.currentdocument
Set doc = uidoc.document '获得当前文档
Dim rtitem1 As NotesRichTextItem
Set rtitem1 = doc.GetFirstItem( "aaaa" )
If rtitem1 Is Nothing Then Exit Sub
If rtitem1.Type <> RICHTEXT Then Exit Sub
'文档没有保存以前,无法发现RTF域
Call rtitem1.AppendText( "这是第一个域值内容" )
Dim rtitem2 As NotesRichTextItem
Set rtitem2 = rtitem1.CopyItemToDocument( doc,"bbbb")
Call rtitem2.AppendText( "这是第二个域新内容" )
Call doc.Save( False, True )
End Sub
=======================
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.100.132.88]
|
|