How to remove all pictures from document in Word?
If you want to remove all pictures and keep all formatting unchanged in a document, how can you do? This tutorial will show you some tricky things to remove all pictures without changing formatting in the document.
Remove all pictures from document by Find and Replace function
Remove all pictures from document by using VBA code
Remove all pictures from document with Kutools for Word
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu for Office: Bring Old Look of Office 2003 Back to Office 2007, 2010, 2013 and 2016.
Remove all pictures from document by Find and Replace function
Find and Replace function provides an easy way for value converting or removing, so you can also use it for removing all pictures from the document.
Step 1: Click Home > Replace to open the Find and Replace window;
Step 2: Click More button to bring up more Search Options;
Step 3: Place the cursor in the Find what feild, then select Graphic from the Special drop-down list (or enter “^g” into the Find what box);
Step 4: Click Replace All.
Remove all pictures from document by using VBA code
Using VBA code is another easier way to remove all pictures from document. You can use a VBA code as follows to remove all pictures from document.
Step 1: Press “Alt-F11” to open the Microsoft Visual Basic for Application window;
Step 2: Click Module on the Insert tab, copy and paste the following VBA code into the Module window;
Step 3: Click Run 
button to apply the VBA.
The VBA code to remove all pictures from document:
Sub DitchPictures()
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
End Sub
Remove all pictures from document with Kutools for Word
Kutools for Word provides the most convenient way to remove all pictures from the document. It can remove all pictures from the whole document or all pictures from the selected part of the document.
Kutools for Word, a handy add-in, includes groups of tools to ease your work and enhance your ability of processing word document. Free Trial for 45 days! Get It Now!
1. Please apply this utility by clicking Kutools > More > Remove Pictures. See screenshot:
2. After clicking Remove Pictures, if you have selected a part of document, Kutools for Word will remove the pictures from this part directly without any hint. But if you haven’t selected any part of the document, there will be a dialog popping up to remind you the removing of all pictures. Click Yes to start the removing. You can see the result as shown in the below screenshots:
 |
 |
 |
For more information about Remove Pictures, please visit: Remove Pictures feature description.
Kutools for Word
More than 100 Advanced Functions for Word 2003, 2007, 2010, 2013 and 2016
Comments
Do While ActiveDocument. Shapes.count > 0
ActiveDocument. Shapes(1).Delet e
Loop
Do While ActiveDocument. InlineShapes.co unt > 0
ActiveDocument. InlineShapes(1) .Delete
Loop
I use these when changing a file to text only. I also convert all tables to tab delmited
Do While ActiveDocument. Tables.count > 0
ActiveDocument. Tables(1).Conve rtToText Separator:=wdSe parateByTabs
Loop
I have not seen any problems with do while loops, but have occasionally when deleting from a collection that I am playing with
I alternatively use .count to get a total of items and use a for next with a step -1 to work on them backwards.
By the way, I work on a Mac and objects sometimes act funny and some windows VBA objects are not even available.
nancy