In this article, we want to share 4 handy ways with you to get the total count of images in your Word document quickly and correctly.
Every now and then, a document will require multiple images to make it more professional. However, if you are a guy like me who prefer to insert images right after finishing editing, then you will probably worry about whether you’ve left one or two accidentally. Consequently, you will have to scroll up and down painstakingly to check out the total number of images in the document. Given this awkwardness, we offer you 4 really useful methods to save your time.
Method 1: Utilize “Find” Feature
- First and foremost, click “Home” tab.
- Then click the button behind “Find” icon.
- And choose “Advanced Find” on the menu.
- In “Find and Replace” dialog box, ensure no other text in “Find what” text box and enter “^g” there.
- Next click “Find In” and choose “Main Document”.
Now there is the result on the dialog box, showing the number of inline shapes in this document. This means the “Find” feature can only count images set in “In line with text” wrapping style.
Method 2: Use “Go To” Feature
- Firstly, press “Ctrl+ Home” to go to the beginning of the document and repeat first 2 steps in method 1.
- This time choose “Go To” instead.
- Then select “Graphic”.
- Enter nothing in text box and click “Next”.
Each time you click “Next”, Word will bring you to the net graphic and you need to count by yourself. Still, this way includes only the inline shapes.
Here is a video demonstration:
Method 3: Press “Tab” Key
- To start with, click on the first image on the document.
- Next press “Tab” and the next image will be selected. Remember to count by yourself.
Luckily, method 3 includes both inline shapes and floating shapes like text boxes.
Method 4: Run Word Macro
- At first, click “Developer” tab.
- Then click “Visual Basic” to open VBA editor.
- Next click “Insert” and choose “Module” to insert a new one under “Normal” project.
- Double click on the new module to open the coding space.
- And paste the following codes there:
Sub CountImages() Dim objDoc As Document Dim nFlowingShapes As Long, nInlineShapes As Long, nTextBox As Long, nTotalShapes As Long Dim objShape As Shape Set objDoc = ActiveDocument nTextBox = 0 For Each objShape In objDoc.Shapes If objShape.Type = msoTextBox Then nTextBox = nTextBox + 1 End If Next objShape nFlowingShapes = objDoc.Shapes.Count nInlineShapes = objDoc.InlineShapes.Count nTotalShapes = nFlowingShapes + nInlineShapes - nTextBox MsgBox "There are " & nTotalShapes & " images in this document, " & "with " & nFlowingShapes & " flowing shapes, " & nTextBox & "text boxes, and " & nInlineShapes & " inline shapes." End Sub
- Finally, click “Run”.
There shall be a message box, indicating the result.
Tool to Fix Word
Word is susceptible to errors and mistakes. And once it stops working, the shut down can wreak havoc with our Word files, which shall be a huge setback for us mentally. Nevertheless, there is still the remedy for having the broken files back that is to obtain a sophisticated tool to repair Word.
Author Introduction:
Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xls repair and pdf repair software products. For more information visit www.datanumen.com