Subdocuments オブジェクト (Word)

指定範囲または文書内のサブ文書を表すための サブ文書 のオブジェクトのコレクションです。

注釈

サブ文書 のコレクションを取得するのにには、 サブ文書 のプロパティを使用します。 次の例では、作業中の文書内のすべてのサブ文書を展開します。

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

オブジェクトを取得する 1 つ のサブ文書 に サブ文書 (インデックス)、インデックスがインデックス番号を使用します。 次の例では、作業中の文書で最初のサブ文書のパスとファイル名を表示します。

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

関連項目

Word オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。