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

macropod · #1 05-25-2020, 02:59 PM

If you want to process floating shapes - including any empty paragraphs they're attached to - as well, try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
  Do While .Shapes.Count > 0
    .Shapes(1).ConvertToInlineShape
  Loop
  With .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
End With
Application.ScreenUpdating = True
End Sub

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