Rech hat er! Versuch doch :
Set itemRT = uidoc.document.getfirstitem("description")
Call itemRT.copyitemtodocument(doc, "description_dcm")
Call doc.Save( True, True )
Call ws.EditDocument(True, doc)
Das Call ws.EditDocument(True, doc) gehört am Schluss