ændring af uidoc i en action

Hejsa

Jeg har et dokument CurDoc, hvor jeg kopierer alle felterne over på et nyoprettet NewDoc.

Uidoc er sat til workspace.Current - altså Curdoc

Nu vil jeg gerne have Uidoc sat til NewDoc - men hvordan????

Set CurDoc = ws.CurrentDocument.Document
Set NewDoc = CurDoc.ParentDatabase.CreateDocument
Call CurDoc.CopyAllItems(NewDoc,True)
Call ws.CurrentDocument.Close
NewDoc.ObjApDocStatus = ".Draft"
   
'Get the current document and copy the rich text field (body) to the clip board
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document