Expanded 属性

       

如果该属性值为 True,则扩展指定文档中的子文档。Boolean 类型,可读写。

示例

本示例扩展活动主文档中的所有子文档。

If ActiveDocument.Subdocuments.Count >= 1 Then
    ActiveDocument.Subdocuments.Expanded = True
End If

本示例设置 Expanded 属性,以在扩展和折叠活动文档中的所有子文档之间进行切换。

ActiveDocument.Subdocuments.Expanded = _
    Not ActiveDocument.Subdocuments.Expanded

本示例判定 Report.doc 中的子文档是否是扩展的,然后显示一条消息,表明子文档的状态。

If Documents("Report.doc").Subdocuments.Expanded = True Then
    MsgBox "All available information is displayed."
Else
    MsgBox "Expand subdocuments for more information."
End If