Call uidoc.save
Set rtitem = doc.GetFirstItem( "rhtAttachment" )
If ( rtitem.Type = RICHTEXT ) Then
If Isarray(rtitem.EmbeddedObjects) Then
Forall o In rtitem.EmbeddedObjects
If o.Type = EMBED_ATTACHMENT Then
Call o.ExtractFile( "c:\samples\" & o.Source )
'Call o.Remove
'Call doc.Save( False, True )
End If
End Forall
End If
End If
转载于:https://blog.51cto.com/sysmw/427221