Extracting list of embedded image file names from Word 2016

erik@haagensen.no · #1 08-18-2017, 01:33 AM

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 · #2 08-18-2017, 02:34 PM

Try a macro like:

Code:

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 · #3 08-18-2017, 10:54 PM

The generated list was just like I wanted.

Thanks a lot !!!

erik@haagensen.no · #4 08-19-2017, 09:59 AM

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 · #5 08-19-2017, 02:35 PM

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 · #6 08-19-2017, 11:02 PM

I understand.
Thank you for your explanation.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Unable to see names in merge since upgrading to Word 2016	thelighthouse	Mail Merge	2	06-21-2017 06:55 AM
image display issue in word 2010 and word 2016	SashikalaB	Word	5	01-09-2017 05:05 PM
Importing Google contacts from CSV file removes recipient names in autocomplete list	weeneely	Outlook	0	04-08-2016 07:51 AM
List bookmark names in word doc	Hdata	Word VBA	2	04-11-2015 05:03 AM
Extracting information from Image in word	Flambo	Word	2	05-06-2012 10:43 PM