Hi,
dim uiworkspace as new notesuiworkspace
dim uidoc as notesdocument
dim uidoc2 as notesdocument
dim s as new notessession
dim db as notesdatabase
dim doc as notesdocument
dim doc2 as notesdocument
set db = s.currentdatabase
'somit erhälst Du das aktuelle UIDokument
set uidoc = uiworkspace.currentdocument
'somit machst Du aus dem aktuellen UIDokument ein BackendDoc
set doc = uidoc.document
'neues Doc generieren
set doc2 = db.createdocument
'Felder austauschen zwischen doc2 und doc
doc2.Form = "DeinFormName"
doc2.Feld1 = doc.Feld1
....
'falls das DOC2 gespeichert werden soll
call doc2.save(true, true)
'falls es in den UIWorksapce soll (geht auch ohne save)
set uidoc2 = uiworkspace.editdocument(false, doc2)