ワードで作った通知文。宛名をエクセルで作った名簿とリンクさせる方法を

質問

よろしくお願いします。
例えば、ワードで作った通知文を３０人の方へ送る場合、＊＊＊様部分などを別フォルダのエクセルで作った名簿を利用し、各個人宛の３０枚の文書を一発で作る（印刷する）方法を教えてください。

手順を紹介しているサイトなど、紹介して頂けたら幸いです。

回答No.2

imogasi · ベストアンサー

WEB照会で「ワード　差しこみ印刷」「差し込み印刷」「差込み印刷」「差し込印刷」「差込印刷」などでやれば沢山出てきます。ワードの市販解説書にも必ず解説が出ています。
http://allabout.co.jp/computer/pcbasic/closeup/CU20030524A/など多数。
エクセル文書へエクセル別シートから（実質的に）差し込み印刷するには、１０行程度のＶＢＡプログラムで簡単にできます。
Sub test02()
For i = 1 To 3 '３０枚なら30にする
Worksheets("sheet2").Cells(3, "B") = _
Worksheets("sheet3").Cells(i, "A")
'Ｓｈｅｅｔ３のＡ列の各行からから、Ｓｈｅｅｔ２の
'差し込みしたいセル（この場合Ｂ３の例）にデータを
'代入するもの。２項目（部署と氏名など）を差しこむなら
'両辺の２箇所のＣｅｌｌｓ（）の（）内を変えた同様の行
'をもう１列挿入する。
Worksheets("sheet2").Range("a1:h36").PrintOut
'この場合、地の変化しない文章も含めて、Ｓｈｅｅｔ２の
'Ａ１：Ｈ３６にある場合の例
Next i
End Sub

お礼

ご丁寧な回答、ありがとうございました。
参考にさせて頂きました。

回答No.1

kurikuribouzu

こんなのでしょうか。

参考URL：

http://www.miyazaki-cci.or.jp/nichinan/pc/case9.html

お礼

ありがとうございました。