Remove all the images in a document, including the new lines

alex100 · #1 05-10-2020, 01:05 PM

I'm looking for a way to remove all the images in a document. I found this script...

Code:

Dim oILShp As InlineShape
For Each oILShp In ActiveDocument.InlineShapes
    ActiveDocument.Range(oILShp.Range.Start, oILShp.Range.End).Text = "[IMAGE REMOVED]"
Next

The problem is that I also need to remove the line where the image used to be, so that the paragraphs before and after the image will not be divided by a blank new line. Simply deleting the "[IMAGE REMOVED]" replacement text won't do that, as it will leave a new line in that spot.

What's the best way to do this, please?

Thank you,
Alex

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I Remove A Specific Amount of Characters from Lines in a Document?	tatihulot	Word	5	01-22-2016 05:55 AM
How to Prevent Table of Contents Including Document Details	shaaa	Word	5	06-10-2015 03:52 PM
How to stop including images as attachment (in other e-mail clients)?	TylerSD	Outlook	0	12-05-2014 01:56 PM
hard lines across document - can't remove	joanieS	Word	3	07-30-2013 11:29 AM
Remove all images from a Mac OS X Word 2008 Document?	qcom	Drawing and Graphics	0	04-23-2011 06:48 PM