E\' tanto che non programmo, e\' vero... ma non capisco perche fallisce questo script.. Cerco di salvare su disco tutti gli eventuali alleagati che sono presenti su un documento.
Sul ForAll (seconda riga) ho un errore "Type Mismatch".
Il documento e\' valorizzato, ha allegati...
If docToCheck.HasEmbedded Then
ForAll o In docToCheck.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
Call o.ExtractFile ( "c:\")
End If
End ForAll
End if
|