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

macropod · #6 05-11-2020, 01:53 AM

Really, that is awful code - all you've done is cobble something together using the macro recorder and tacked it onto the end of your already defective code. If, as you say, some images were not removed, your solution is hardly any better, as those very same images will instead still display '[IMAGE REMOVED]'. All you need is:

Code:

With ActiveDocument.Range.Find
  .Execute FindText:="^g^p", ReplaceWith:="", Wrap:=wdFindContinue, Replace:=wdReplaceAll
  .Execute FindText:="^g^l", ReplaceWith:="", Wrap:=wdFindContinue, Replace:=wdReplaceAll
  .Execute FindText:="^g", ReplaceWith:="", Wrap:=wdFindContinue, Replace:=wdReplaceAll
End With

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