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.
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
- Firstly, click to select a picture.
- 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
- Firstly, click on “Developer” tab then click the “Visual Basic” to trigger the VBA editor. Or simply press “Alt+ F11” instead.
- Next click “Normal”.
- Then click “Insert” tab and choose “Module”.
- And double click on the new module to bring about the coding area.
- 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
- Lastly but not the least, click “Run” button or hit “F5”.
This macro is able to get rid of all pictures, be them in “In line with text” or other wrapping styles.
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.
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