Subdocuments Property Example

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