Danke Driri, für den Super Tipp.
ich habe es jetzt so gelöst.
Call uidoc.Close
Call ReOpen(doc)
Call uidoc.Close
Function ReOpen(docThis As NotesDocument) As Integer
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim dbThis As NotesDatabase
Dim unid As String
ReOpen = 0
Set dbThis = docThis.ParentDatabase
Call docThis.Save(True , True)
unid = docThis.UniversalID
docThis.SaveOptions = "0"
Set uidoc = ws.CurrentDocument
Call uidoc.Close
Set docThis = dbThis.GetDocumentByUNID(unid)
Set uidoc = ws.EditDocument(False, docThis)
' Set docThis = uidoc.Document
Set uidoc = ws.EditDocument(False, docThis)
ReOpen = 1
Call uidoc.Close
End Function