As the title says, looking to extract a listing of embedded documents from a single Word document.

Something similar was done for images by Paul Edstein in this post:
https://www.msofficeforums.com/word-...ames-word.html

With this 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

If someone could let me know the tweaks to make, i would be grateful.

Cheers