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 コレクション。
例
次のコード例では、選択範囲内の最初の段落に "Heading 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 セキュリティ
- 直前の呼び出し元に対する完全な信頼。このメンバーは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。