HasFile Property

True if the specified subdocument has been saved to a file. Read-only Boolean.

Example

This example displays the file name of each subdocument in the active document. The example also displays a message for each subdocument that hasn't been saved.

Dim subLoop As Subdocument

For Each subLoop In ActiveDocument.Subdocuments
    subLoop.Range.Select
    If subLoop.HasFile = True Then
        MsgBox subLoop.Path & Application.PathSeparator _
            & subLoop.Name
    Else
        MsgBox "This subdocument has not been saved."
    End If
Next subLoop