Wordファイルに貼り付けたファイルの印刷方法

Wordファイルにオブジェクトの挿入で他のWordファイルが挿入されたファイルがあるのですが，挿入されたファイルもWordファイルと一緒に印刷したいのですが良い方法はありませんでしょうか？

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2005/09/12 18:41

> 挿入されたファイルもWordファイルと一緒に印刷したい

次のようなことでしょうか。

「表示されているＷｏｒｄ文書の全ページ」と「オブジェクトとして挿入されている
Ｗｏｒｄ文書の全ページ」を印刷するマクロです。
表示されているＷｏｒｄ文書の「標準モジュール」に記述して実行します。

Sub PrintOle()
　　Application.ScreenUpdating = False
　　Dim S
　　ActiveDocument.PrintOut
　　For S = 1 To ActiveDocument.InlineShapes.Count
　　　　ActiveDocument.InlineShapes(S).Select
　　　　Selection.InlineShapes(1).OLEFormat.Open
　　　　ActiveDocument.PrintOut
　　　　ActiveWindow.Close
　　Next
　　Application.ScreenUpdating = True
End Sub