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.
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.
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.
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:
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
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.
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
To post as a guest, your comment is unpublished.· 6 months agoi dont know but some of the graphic is not capturing in replace button.
To post as a guest, your comment is unpublished.· 7 months agoWow, yes thank you. Several other previous matches did not work.
To post as a guest, your comment is unpublished.· 1 years agoThank you so much for this how to - it saved me HOURS of work taking photos out of a document!!
To post as a guest, your comment is unpublished.· 3 years agoYour code will only remove inlineshapes, consider the following as I have sometimes seen problems when using collections
Do While ActiveDocument.Shapes.count > 0
Do While ActiveDocument.InlineShapes.count > 0
I use these when changing a file to text only. I also convert all tables to tab delmited
Do While ActiveDocument.Tables.count > 0
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.