Problem in removing attachment

Hi all, I am using the following code, it is extracting the files but the files are not removed from the doc, instead it is again attaching at the bottom of the doc, any idea?Forall o In rtitem.embeddedobjects

If o.type = EMBED_ATTACHMENT Then

Call o.remove

call doc.save(true,false)

End Forall

regds

soma