Set docThis = dbThis.GetDocumentByUNID(unid)
Set uidoc = ws.EditDocument(True , docThis)
Nochmal: Mit ProfileDocs funktioniert das nicht, die haben eine ganz andere Struktur. Undklar ist mir auch nach wie vor, warum Du nicht die dafür vorgesehenen Methoden verwendest.