A me funziona senza problemi ti allego lo script. ha poche differenze.
Call worddoc.saveAs (filename1)
Call worddoc.close
Call wordobj.quit
Set rtitem = uidoc.document.GetFirstItem("Body")
If rtitem Is Nothing Then
Set rtitem = uidoc.document.CreateRichTextItem("Body")
End If
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", filename1)
\'chiudo e riapro il documento corrente per avere il refresh del campo ritch text
Call uidoc.document.save(True, True)
uidoc.document.saveoptions = "0"
Call uidoc.close
Set uidoc = ws.EditDocument(True, uidoc.document, True)
Set doc = uidoc.document
|