Word VBA教程:Expanded属性

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号