エクセルとワードの連携

質問

エクセルに入力された複数のデータを読み込ませて
ワードの所定の位置<-xxxx->←の様な印をつけたところに
貼り付けていくマクロというのがあるというのを
昔聞いた気がするのですが、

これはどのような機能を利用して
実現されていますか？？

例えば
エクセルのA1に氏名が入力されていたら、
ワードの　氏名　をエクセルデータからマクロで読み込ませ入力する
次にB1に住所が入力されていたら、
ワードの　住所　部分にエクセルデータからマクロで読み込ませ入力する
ようなイメージです。
参考になるようなサイトも教えていただければと思います。
よろしくお願いします。

回答No.3

imogasi

差し込み印刷のことでしょう。
Ｅｘｃｅｌに限らず、Ａｃｃｅｓｓのデータベースなども差し込めます。
ＶＢＡでも差し込み印刷のコントロールはできます。
ワードのＶＢＡが（も）できるなら、文書の文章の所定の位置にブックマークを設定して、その位置にエクセルなどのシートのデータをセットし、印刷もできます。
しかし、内容はプログラム未経験者には、難しいと思う。
だからマイクロソフトの作った差し込み印刷がどんなものか勉強し、その決めに従って、進めるほかありません。
ハガキなどの宛先住所、氏名などの差し込み印刷から勉強を始めて、一般の書簡の好みの位置に、データを各回ごとに変える（差し込む）方に進むべきでしょう。
今頃、質問者は、「差し込み印刷」の言葉も出ないようでは、この先むつかしい局面になりそうです。本やＷＥＢで「差し込み印刷」に、関連した記事を集めてまず読んでください。

回答No.2

oboroxx

マクロではなく、差し込み印刷のことだと思います。
FOM出版のMOS WORD 2016 Expertのレッスン46を読んでみるとわかると思います。

回答No.1

f272

例えばエクセルマクロでこんな感じ。
word 文書"C:\Users\f272\Desktop\1.docx"があって，その中に含まれる"<-xxxx->"をすべて，エクセルのActiveSheetのセルA1にある文字列に置き換えます。
Sub Macro1()
Set WordApp = CreateObject("Word.Application")
Set Exwb = ThisWorkbook
Set Exws = Exwb.ActiveSheet
txt = Exws.Cells(1, 1).Text
With WordApp
.Visible = True
.Documents.Open ("C:\Users\f272\Desktop\1.docx")
.Selection.Find.Execute findText:="<-xxxx->", Replace:=2, ReplaceWith:=txt
.Quit
End With
End Sub