Microsoft Office Forums - View Single Post - [Solved] Extracting list of embedded image file names from Word 2016

macropod · 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.