Super, danke! Hat schonmal so geklappt, habe dann aber doch gleich ein ganz neues Dokument erstellt und die Werte aus dem "alten" Dokument in die Kopie übernommen (es sollten nicht alle Werte übernommen werden. Letztendlich hat sich herausgestellt, dass kaum etwas übernommen werden sollte). Jetzt habe ich nur wieder ein Problem mit diesen ... richtext Items. Und zwar soll in der Kopie in einem RT-Feld der Doclink zum Original-Dokument eingefügt werden. Ich bekomme hier beim Aufruf der Funktion immer die Methode mein Object sei nicht gesetzt :-\
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim newdoc As NotesDocument
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set uidoc = ws.Currentdocument
Set db = ws.Currentdatabase.Database
Set newdoc = New NotesDocument (db)
Call newdoc.Replaceitemvalue("Form", "myForm")
Set doc = uidoc.Document
'get doclink
Dim rtitem As NotesRichTextItem
Set rtitem = newdoc.Getfirstitem("rtField")
Call rtitem.Appenddoclink(uidoc.Document, "test")
.
.
.