Take the 2-minute tour ×
Super User is a question and answer site for computer enthusiasts and power users. It's 100% free, no registration required.

Can any body help me, in this regard. I just want to remove all the images in my word document. I have about 365 pages document, in which there are images in almost all pages. I can not delete one by one. I can save it in .txt format but I will lose the formatting of the data. Is there any other way to get this.

any help would be greatly appreciated.

Thanks in advance. Let me know if you people need more clarification on this.

share|improve this question
    
You probably didn't mean flat out, "remove all images..without losing formatting" as your title was, because obviously if you remove images, you will lose some formatting like the blank space where the image was, will go, but I guess you want that to go anyway, so you want to lose that formatting. Dan-o's answer seems good to me. –  barlop Feb 23 '13 at 21:03

2 Answers 2


Public Sub PicturesDeleteAll()

Dim objPic As Shape

For Each objPic In ActiveDocument.Shapes
        objPic.Delete
Next objPic

End Sub

For Inline Shapes, replace "Shape" with "InlineShape" and ".Shapes" with ".InlineShapes"


Dan-O, barlop: Lighten up.

share|improve this answer

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.