首先在表单中创建一个RTF域body,以嵌入word 97,再做一按钮,该按钮实现对修改的留痕。其源程序为: Dim db As New notesdatabase(servername,"jswfw") Dim handle As Variant Dim doc As NotesDocument Set doc=source.document Dim rtitem As Variant Dim object As NotesEmbeddedObject Set rtitem = doc.GetFirstItem( "Body" ) Dim session As New NotesSession Dim user As String user = session.commonUserName If ( rtitem.Type = RICHTEXT ) Then Set object = rtitem.GetEmbeddedObject( "Microsoft Word 文档" ) Set handle=object.activate(False) handle.showgrammaticalerrors=False handle.showspellingerrors=False handle.TrackRevisions = True handle.PrintRevisions = True handle.ShowRevisions = True handle.parent.UserName = user handle.parent.UserInitials = user handle.parent.UserAddress = "" handle.save End If
我虽然称不上高手,不过可以试着替你解决一下
他说50个人赞同就开
但是50个人够了
也没开。
1:如果在WEB端打开一个数据库,在此数据库中可以获知另一个数据库中的一个文档的UNID值,并且在打开数据库时,要求通过用户的身份认证,即输入网络口令,如果我想打开通过代理方面打开另一数据库中的文档,不知道你有没有好的方法来实现,并且要求打开另一数据库中的文档时,不再通过用户输入网络口令?
你说的第一个问题是单次签名问题,我想你可以用如下办法,但是不知结果是否令你满意,假设
a人在数据库1是author权限,他要看数据库2中的文档,可以在数据库2中的acl添加anonymous
为reader权限,这样就不用通过验证,这样就不用再验证。但是,因为是anonymous,所以对于
数据库2在server运行时,没办法得到客户端的信息,但是数据库1却知道此客户端的信息,经信息传递过来,就可以满足你的要求了,对么? 2、在WEB端怎么解决文档保存冲突的问题。如果多个人同时审批同一文档时,怎么解决他们的关系问题,希望不用到文档打开标志位?
你说的文档打开标志位我不太明白是什么意思?
找了很多资料都说不清楚,不知道哪位可以指点
我的信箱是[email protected]
初学lotus,晕头转向的
Dim handle As Variant
Dim doc As NotesDocument
Set doc=source.document
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem( "Body" )
Dim session As New NotesSession
Dim user As String
user = session.commonUserName
If ( rtitem.Type = RICHTEXT ) Then
Set object = rtitem.GetEmbeddedObject( "Microsoft Word 文档" )
Set handle=object.activate(False)
handle.showgrammaticalerrors=False
handle.showspellingerrors=False
handle.TrackRevisions = True
handle.PrintRevisions = True
handle.ShowRevisions = True
handle.parent.UserName = user
handle.parent.UserInitials = user
handle.parent.UserAddress = ""
handle.save
End If