To view the total number of images in a document, you can use something like the following:
MsgBox ActiveDocument.InlineShapes.Count
A wrapper you could use to loop through them is:
For Each iShape In ActiveDocument.InlineShapes
stuff
Next
One option is to step into the macro and use F8 to step through the code.