#1
|
|||
|
|||
Extracting list of embedded image file names from Word 2016
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? |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
The generated list was just like I wanted.
Thanks a lot !!! |
#4
|
|||
|
|||
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. |
#5
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#6
|
|||
|
|||
I understand.
Thank you for your explanation. |
Tags |
embedded images, original file name, word 2016 |
Thread Tools | |
Display Modes | |
|
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 |