ændring af uidoc i en action
HejsaJeg 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