How to Reduce Your Word File Size by Separating All Pictures from It

In this article, we will focus on demonstrating you of how to reduce your Word file size by separating all pictures from it.

It happens all the time that we are so obsessed with images that we keeping inserting amounts of them into our document. Consequently, the file size is also growing. This can lead to a large occupation on storage devices. Besides, it will take long time to transfer the document from one place to another.

Therefore, in today’s post, we want to show you the steps to extract all pictures embedded in your file to another file folder. And then there will be methods to delete them once for all so as to help your file lose weight.    The Original File Size

Export All Pictures to a New Location

Speaking of extracting all pictures from Word document, we have post another article before. Thus, you can click to follow this link to read more: 3 Methods to Extract Pictures from Word Documents

In the above article, there are 3 effectual methods which you can employ on your own files. Among them, method 2 is probably the most used one. For this reason, we made a video demonstration for you to check:

2 Methods to Delete All Pictures in One File

After get all pictures out of document, the next step is to delete all the useless ones remains in the file. To address this issue, we have the 2 bellowing methods for you.

Method 1: Remove All Pictures Manually

  1. Firstly, click to select a picture.
  2. Next, press “Delete” to cut it out.

As you may think, this process can be painful when it comes to hundreds of pictures. Therefore, here is our second weapon that is to run a Word macro.

Method 2: Run Word Macro

  1. Firstly, click on “Developer” tab then click the “Visual Basic” to trigger the VBA editor. Or simply press “Alt+ F11” instead.Click "Developer"->Click "Visual Basic"
  2. Next click “Normal”.
  3. Then click “Insert” tab and choose “Module”.Click "Normal"->Click "Insert"->Click "Module"
  4. And double click on the new module to bring about the coding area.
  5. Now paste the following macro there:
Sub DeleteAllPicturesInDoc()
  Dim objDoc As Document
  Dim objInLIneShape As InlineShape
  Dim objShape As Shape
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  '  Find all pictures in the active document and then delete them in batch.
  With objDoc
    For Each objInLIneShape In .InlineShapes
      objInLIneShape.Delete
    Next objInLIneShape
    For Each objShape In .Shapes
      objShape.Delete
    Next objShape
  End With
End Sub
  1. Lastly but not the least, click “Run” button or hit “F5”.Paste Cods->Click "Run"

This macro is able to get rid of all pictures, be them in “In line with text” or other wrapping styles.File with a smaller size

Protect Valuable Files

Though we often talk about deleting the unnecessary, you should always keep an eye on you real important data. You need to keep them intact as best as you can. Since once a file gets damaged, a built-in doc repair tool will not help you so much on the retrieving them back but an advanced third-party does.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including tool to fix Excel damage and pdf repair software products. For more information visit www.datanumen.com

Comments are closed.