步骤如下:
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