Wordについて

質問

Word2013を使用しています。

Excelのvlookupのように、Wordでエクセルのデータを参照したいのですが、やり方について教えていただけると幸いです。わかりやすいサイトのリンクなどあれば載せていただきたいです。

例
Excelデータベース
山田くん　りんご
橋本くん　バナナ

Word
[ ]は< >が好きです

[ ]に山田くんと入力すると　< >にりんごが入る
[ ]に橋本くんと入力すると　< >にバナナが入る

回答No.2

imogasi

質問者は、初心者なんだろうから、「諦める」べきかと思う。
ＥｘｃｅｌとＷｏｒｄはソフトが違う。エクセルでは、できそうだからと言って、ワードでもできるのでは、というのは、大変な間違い。一般に、ＭＳ社以外との２つのソフトの連携など、まず望み薄です。ＭＳオフィス(スイートの）ソフト相互なら、何とかできる課題があるかも。
　せめてＶＢＡでもできれば、限られた課題で、道が開ける課題はあるかも。ＶＢＡができなければ絶望ではないか。
　下記など、「知っているわい」、というレベルなら、ＷＥＢで照会したり、やや上級の質問サイトに質問を出せば、解決策が見つかるかも。
ーー
見本例として、
エクセルに、ＶＬＯＯＫＵＰの表を置いて、ＷｏｒｄのＶＢＡで使った簡単な例を挙げてみる。
ＥｘｃｅｌのＳｈｅｅｔ２のＡ１：Ｂ３に、対応表を
山田 34
木村 45
大野 28
Ｂ列は年齢としてみる。
ーー
ＷｏｒｄのＶＢＥで標準モジュールに
Sub test04()
Set exl = CreateObject("excel.application")
Set wb = exl.Application.Workbooks.Open("C:\XXX\YYY\Documents\ZZZ.xlsm")
Set sh2 = wb.worksheets("Sheet2")
y = InputBox("名前＝")
x = exl.worksheetfunction.vlookup(y, sh2.Range("A1:B3"), 2, False)
MsgBox x
wb.Close SaveChanges:=False
Set sh2 = Nothing
Set wb = Nothing
Set exl = Nothing
End Sub
ブック名は自分の場合の名前に変えること。Ｓｈｅｅｔ２に注意。
実行すると、名前を漢字で聞いてくるから、入力する。すると年齢を表から引いて表示する。
ーー
しかしむつかしいのは、これから先です。
[]や＜＞が複数箇所あり、文書上の場所で、何番目かを特定する（見つけるのが）大変なことにある。まだしも[A],[B]・・や<A><B>のように特定してある方がよい（易しくなる）と思う。
Ｆｉｎｄなどで、何番目の＜＞などを見つけるのは、ややこしいＶＢＡになる。Ａ，やＢなどの位置を求めるの方が素直かな。
＝＝
もう一つ小生が、連想したのは、ワードには、「差し込み印刷という機能がある。
年賀状などで、Ａさんの賀状には、名前と住所を対応させないとならない。これと質問の課題は似てないか？
データベースで氏名と住所などの対応をつくって、検索してつかうほうほうだ。
しかしＳＱＬなどが背後でつかわれていて、初心者には理解が　むつかしいだろう。
ただし、質問課題が、このタイプに持ち込めれば、それなら、手操作でも（ＶＢＡでも）応用出来る可能性が見えてくる。
＝＝
２０－３０箇所ぐらいなら、人間が対応表に基づいて、入力する方が、早いし、それしかない。
欲張って自動化しようとしても、ＶＢＡなど独学は大変な時間がかかり、ＶＢＡの指導者がそばにいなければ、（小生の経験から）学習は、まず絶望的だ、と思う。

回答No.1

okvaio

一例として、以下を参照して下さい。
https://www.pc-koubou.jp/magazine/27223