次の方法で共有

Subdocument オブジェクト (Word)

文書または指定範囲内のサブ文書を表します。 Subdocument オブジェクトは、Subdocuments コレクションのメンバーです。 Subdocuments コレクションには、指定範囲または文書のすべてのサブ文書が含まれます。

注釈

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

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

関連項目

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

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

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