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