如果该属性值为 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