Extracting list of embedded image file names from Word 2016

[erik@haagensen.no]

I have about one hundred documents made with Word 2016.
There are several embedded images in each file.
Each image is picked from different folders on the same pc.

I need to have a list for each document with original image file names.


The image file names are present in the document code - I can find this manually if I mark an image, select properties, format and take a look at "Alternative text - Description". There it is! (See attachment)

But there are a lot of images, so is there a smart method that can extract a text list.
Preferably 1 line per image?

[macropod]

Try a macro like:

Sub Demo()
Dim Shp As Shape, iShp As InlineShape
Dim StrShp As String, StriShp As String
With ActiveDocument
  For Each iShp In .InlineShapes
    StriShp = StriShp & vbCr & iShp.AlternativeText
  Next
  For Each Shp In .Shapes
    StrShp = StrShp & vbCr & Shp.AlternativeText
  Next
  .Range.InsertAfter vbCr & "Inline Shapes:" & StriShp _
    & vbCr & vbCr & "Floating Shapes:" & StrShp
End With
End Sub

The macro writes the lists out at the end of the document - one for inline shapes, another for floating shapes.

[erik@haagensen.no]

The generated list was just like I wanted.

Thanks a lot !!!

[erik@haagensen.no]

The given macro has been to great help!
However - can I add more image properties in the listing?

For ex. image file size properties like: Kb and pixel sizes.

[macropod]

Word doesn't store those data in a form accessible to VBA (Note: pixels don't really have a size; just horizontal & vertical counts, though the image metadata sometimes suggest a nominal scaling like 72dpi). To do something like you've asked for, you'd need code that takes the retrieved filename & path, then extracts those data from the original image (assuming it's still there!). However, even that can't be relied on as the image may have been compressed and/or cropped in Word, which can involve both reducing the pixel count and applying jpg compression to it - resulting in a much smaller file in Word than the file on disk. Furthermore, vector images don't have any pixel-related data.

[erik@haagensen.no]

I understand.
Thank you for your explanation.