救命啊！如何在Notes开发的程序中实现修改留痕！！！
老板的要求，希望在文件的传递过程中实现更改留痕！
问题点数：100、回复次数：3Top
1 楼qianjian03（qianjian）回复于 2003-08-04 14:10:56 得分 0
大侠都到那里去了Top
2 楼tianzl（星云）回复于 2003-08-04 14:56:53 得分 0
我以前也问过，没结果，恐怕是有点难！
人家做出来的大多也是要money！
参考一下这个帖子：
http://www.chinalotus.com/wyf/viewthread.php?tid=4997&highlight=%C1%F4%BA%DB%2B
（可能得先注册个用户）
Top
3 楼lihao_sh（www.linuxkingdom.net）回复于 2003-08-04 16:07:17 得分 100
试试用WORD的留痕功能：
以下含代码
1. 建立一个Word文档，文档中包含以下宏。
①查看痕迹。
Sub 查看痕迹()
With ActiveDocument
.TrackRevisions = False
//标记对指定文档的修改
.PrintRevisions = True
//在打印文档的同时打印修订标记
.ShowRevisions = True
//在屏幕上显示对指定文档的修订
End With
End Sub
②不查看痕迹。
Sub 不查看痕迹()
With ActiveDocument
.TrackRevisions = False
.PrintRevisions = False
.ShowRevisions = False
End With
End Sub
③保存退出。
Sub 保存退出()
ActiveDocument.Save
ActiveDocument.Close
End Sub
2.将该文档作为对象在表单中创建，注意将其显示为图表 形式。
3.将Notes中的用户名转入Word中，以便生成标注。该程序可在数据库的PostOpen事件中触发，主要程序如下。
Dim Wordapp As Variant
Set Wordapp = CreateObject(“Word.Document.8")
If Wordapp.Application.UserName
< > Session.CommonUserName Then
Wordapp.Application.UserName =
Session.CommonUserName
//设置Word用户名
End If
End Function
Top
