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