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