こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

エクセルとワードの連携

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

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

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

投稿日時 - 2020-02-07 16:47:07

QNo.9710215

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

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

投稿日時 - 2020-02-07 19:49:38

ANo.2

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

投稿日時 - 2020-02-07 17:50:49

ANo.1

例えばエクセルマクロでこんな感じ。
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

投稿日時 - 2020-02-07 17:49:52

あなたにオススメの質問