Você pode usar uma macro para fazer uma iteração em todas as InlineShapes
Sub AllInlineShapes()
For Each o In ActiveDocument.InlineShapes
If o.Type = 1 Then
Debug.Print o.Type,
If Not o.OLEFormat Is Nothing Then
Debug.Print o.OLEFormat.ClassType,
End If
If Not o.LinkFormat Is Nothing Then
Debug.Print o.LinkFormat.SourceFullName,
End If
Debug.Print "."
End If
Next
End Sub
Ou, para um arquivo Docx, você pode fazer uma cópia e alterar sua extensão de arquivo para .zip. Com o explorador de arquivos ou um zipviewer você deve encontrar os arquivos na pasta \DocMedia