エクセルのVBAとワードを使った差し込み印刷

お世話になっております

エクセルにて性別、年齢、住所が入ったブックがあります
そのデータを入れるひな形をワードで作っています
そしてエクセルのVBAにて差し込み印刷で印刷をしたいのですが、
以下のコードだとエクセルのデータを更新した際にその結果がワードに反映されません

どうすればデータが反映されるのでしょうか


Dim wd As Object
Set wd = CreateObject("Word.application")
wd.Visible = True

wd.documents.Open Filename:=ThisWorkbook.Path & "\データ.doc"

wd.ActiveDocument.PrintOut Background:=False
wd.Quit
Set wd = Nothing

よろしくお願い致します

No.1 回答者： enunokokoro 回答日時： 2016/07/26 10:10

提示されたVBAでは、指定されたWord文書を印刷するだけのもので、

差し込み印刷をするものではないですね。

MailMerge オブジェクトを使用しないと差し込み印刷をしませんので、
以下のサポート情報を参考にされてはいかが。

Visual Basic で Word の差し込み印刷を自動化する方法
https://support.microsoft.com/ja-jp/kb/285332