Cookies help us deliver our services. By using our services, you agree to our use of cookies.
Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

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

Easily remove all pictures from document with Kutools for Word


Easily remove all pictures from document with Kutools for Word:

The Remove Pictures utility of Kutools for Word can help you quickly remove all pictures from a selected range or the whole document as you need. See the operation as below screenshot shown.

Kutools for Word: with more than 100 handy Word add-ins, free to try with no limitation in 30 days. Download and free trial Now!


Remove all pictures from document by Find and Replace function

Hot
Amazing! Use Efficient Tabs in Word (Office) like Chrome, Firefox and New Internet Explorer!

Read more Free download

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: In the Find and Replace window, click the More button to bring up more Search Options, and then click Special > Graphic, and finally click the Replace All button. See screenshot:

Note: you can also enter ^g into the Find what box directly, keep the replace with box empty and then click the Replace All button to remove all pictures from document;

Now all pictures in current documents are removed immediately as below screenshot shown.


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 the Alt + F11 keys to open the Microsoft Visual Basic for Application window;

Step 2: Click Insert > Module, copy and paste the following VBA code into the Module window;

Step 3: Click the Run button to apply the VBA.

VBA code: Remove all pictures from document:

Sub DitchPictures()
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
End Sub

Now all pictures in current documents are removed immediately as below screenshot shown.


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 : with more than 60 handy Word add-ins, free to try with no limitation in 30 days.

Remove pictures from a range:

1. Please select the range contains the pictures you want to remove, and then apply this utility by clicking Kutools > More > Remove Pictures to remove them at once. See screenshot:

Remove pictures from the whole document:

1. Just enable the utility by clicking Kutools > More > Remove Pictures without selecting any part of the document. Then a Kutools for Word dialog box is popping up to remind you the removing of all pictures. Click Yes to start the removing.

Now all pictures in current documents are removed immediately as below screenshot shown.

If you want to have a free trial of this utility, please go to free download the software first, and then go to apply the operation according above steps.


Office Tab - Tabbed Browsing, Editing, and Managing of multiple Documents in Word:

Office Tab brings the tabbed interface as seen in web browsers such as Google Chrome, Internet Explorer new versions and Firefox to Microsoft Word. It will be a time-saving tool and irreplaceable in your work. See below demo:

Click for free trial of Office Tab!

Demo: Easily remove all pictures from document with Kutools for Word




Kutools for Word

More than 100 Advanced Functions for Word 2003, 2007, 2010, 2013, 2016 and 2019

shot-kutools-700-225-kte

More Features  |  Free Download  |  Only $39.00 for hundreds of functions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Crystine · 1 years ago
    Great reminder about the find & replace>special>graphics option!

    Saved me so much work!
  • To post as a guest, your comment is unpublished.
    jyoti · 1 years ago
    i dont know but some of the graphic is not capturing in replace button.
  • To post as a guest, your comment is unpublished.
    Paul · 1 years ago
    Wow, yes thank you. Several other previous matches did not work.
  • To post as a guest, your comment is unpublished.
    Nancy · 3 years ago
    Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!!

    nancy
  • To post as a guest, your comment is unpublished.
    bap · 4 years ago
    Your code will only remove inlineshapes, consider the following as I have sometimes seen problems when using collections


    Do While ActiveDocument.Shapes.count > 0
    ActiveDocument.Shapes(1).Delete
    Loop

    Do While ActiveDocument.InlineShapes.count > 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).ConvertToText Separator:=wdSeparateByTabs
    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.