If olddoc.HasEmbedded=True Then
objs = Evaluate("@AttachmentNames",olddoc)
Forall obj In objs
Set fujianobject = olddoc.getattachment(obj)
Call fujianobject.Extractfile(re$ & fujianobject.source)
Call fujianobject.Remove
end Forall
call odldoc.save(false,false)
End If