|
|
|
|
#1
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
|
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 |
Windows 7 64bit 
Office 2010 32bit
Hybrid Mode