Question

Subdocuments Subdocument 多种对象

该对象代表文档或区域中的一个子文档。Subdocument 对象是 Subdocuments 集合的一个成员。Subdocuments 集合包含某区域或文档中的所有子文档。

使用 Subdocument 对象

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

If ActiveDocument.Subdocuments(1).HasFile = True Then
 MsgBox ActiveDocument.Subdocuments(1).Path & _
 Application.PathSeparator & _
 ActiveDocument.Subdocuments(1).Name
End If

使用 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