Expanded Property

True if the subdocuments in the specified document are expanded. Read/write Boolean.

Example

This example expands all subdocuments in the active master document.

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

This example toggles the Expanded property between expanding and collapsing all subdocuments in the active document.

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

This example determines whether the subdocuments in Report.doc are expanded and then displays a message indicating their status.

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