Prova, rapido e indolore, un docOrigine.copyAllItems(docDestinazione).
Dopodichè:
Forall i in docDestinazione.Items
if Ucase(i.Name) <> "$FILE" Then Call docDestinazione.removeItem(i.Name)
End Forall
...compili il resto dei campi di docDestinazione.
Ciao
Massimo Nadalin | Devangarde
|