Dim sFilePath As String
Forall obj In rtitem.EmbeddedObjects
sFilePath = datapatch$ & Replace(Replace(obj.Source, "(", ""), ")", "")
Call obj.ExtractFile(sFilePath)
'проверяем, выгрузился файл или нет, т.к. банально может не быть места на диске либо файл по этому пути уже лежит
If isFileExist(sFilePath) Then
'...
Kill sFilePath
End If
End Forall