DocumentBase.Subdocuments 属性
获取一个 Subdocuments 集合，该集合表示文档中的所有子文档。
命名空间： Microsoft.Office.Tools.Word
程序集： Microsoft.Office.Tools.Word.v4.0.Utilities（在 Microsoft.Office.Tools.Word.v4.0.Utilities.dll 中）
语法
声明
Public ReadOnly Property Subdocuments As Subdocuments
public Subdocuments Subdocuments { get; }
属性值
类型：Microsoft.Office.Interop.Word.Subdocuments
一个 Subdocuments 集合，表示文档中的所有子文档。
示例
下面的代码示例对选择的第一个段落应用“标题 1”样式，然后为选定的内容创建一个子文档。 该代码然后显示一条包含文档中子文档数的消息。 若要使用此示例，请从文档级项目内的 ThisDocument 类中运行此示例。
Private Sub DocumentSubdocuments()
Dim style As Object = Word.WdBuiltinStyle.wdStyleHeading1
Me.Paragraphs(1).Range.InsertParagraphBefore()
Me.Paragraphs(1).Range.Text = "This is sample text."
Dim currentRange As Word.Range = Me.Paragraphs(1).Range
currentRange.Select()
Me.Application.Selection.Paragraphs(1).Style = style
Me.Subdocuments.Expanded = True
Me.Subdocuments.AddFromRange(Application.Selection.Range)
MessageBox.Show("Total subdocuments: " & Me.Subdocuments.Count.ToString())
End Sub
private void DocumentSubdocuments()
{
object style = Word.WdBuiltinStyle.wdStyleHeading1;
this.Paragraphs[1].Range.InsertParagraphBefore();
this.Paragraphs[1].Range.Text = "This is sample text.";
Word.Range currentRange = this.Paragraphs[1].Range;
currentRange.Select();
this.Application.Selection.Paragraphs[1].set_Style(ref style);
this.Subdocuments.Expanded = true;
this.Subdocuments.AddFromRange(Application.Selection.Range);
MessageBox.Show("Total subdocuments: " + this.Subdocuments.Count.ToString());
}
.NET Framework 安全性
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。