HasFile 属性

如果该属性值为 True，则将指定的子文档保存为一个文件。Boolean 类型，只读。

示例

本示例显示活动文档中每篇子文档的文件名，同时还为尚未保存过的每篇子文档显示一条消息。

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