This example displays the number of subdocuments embedded in the active document.
MsgBox ActiveDocument.Subdocuments.Count
This example displays the path and file name of each subdocument in the active document.
For Each subdoc In ActiveDocument.Subdocuments
If subdoc.HasFile = True Then
MsgBox subdoc.Path & Application.PathSeparator _
& subdoc.Name
Else
MsgBox "This subdocument has not been saved."
End If
Next subdoc