Word VBA教程:Subdocuments集合对象

多种对象
Subdocuments (Subdocument)
Range

该对象是代表一个范围或文档中子文档的Subdocument对象组成的集合。

使用 Subdocuments集合

可使用 Subdocuments属性返回一个 Subdocument集合。下例展开活动文档中的所有子文档。


ActiveDocument.Subdocuments.Expanded = True

使用AddFromFile方法或AddFromRange方法可在文档中添加一子文档。下例在活动文档结尾增加一名为“Setup.doc”的子文档。


ActiveDocument.Subdocuments.Expanded = True
Selection.EndKey Unit:=wdStory
Selection.InsertParagraphBefore
ActiveDocument.Subdocuments.AddFromFile Name:="C:\Temp\Setup.doc"

下例将“标题 1”样式应用于所选内容的第一段并将选定的内容生成一个子文档。


Selection.Paragraphs(1).Style = wdStyleHeading1
With ActiveDocument.Subdocuments
    .Expanded = True
    .AddFromRange Range:=Selection.Range
End With

可使用 Subdocuments(index) 返回一个 Subdocument对象,其中 index 为索引号。下例显示活动文档中第一个子文档的路径和文件名。


If ActiveDocument.Subdocuments(1).HasFile = True Then
    MsgBox ActiveDocument.Subdocuments(1).Path & _
        Application.PathSeparator _
        & ActiveDocument.Subdocuments(1).Name
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号