4 Handy Ways to Get the Total Count of Images in Your Word Document

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

1. First and foremost, click “Home” tab.
2. Then click the button behind “Find” icon.
3. And choose “Advanced Find” on the menu.
4. In “Find and Replace” dialog box, ensure no other text in “Find what” text box and enter “^g” there.
5. 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

1. Firstly, press “Ctrl+ Home” to go to the beginning of the document and repeat first 2 steps in method 1.
2. This time choose “Go To” instead.
3. Then select “Graphic”.
4. 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

1. To start with, click on the first image on the document.
2. 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

1. At first, click “Developer” tab.
2. Then click “Visual Basic” to open VBA editor.
3. Next click “Insert” and choose “Module” to insert a new one under “Normal” project.
4. Double click on the new module to open the coding space.
5. 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

6. 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