wordからexcelへ一部のデータを取り出したい

wordで作成した社員の個人情報管理シートが大量にあります。
（1人につき1つ、管理シートは履歴書のような形式に入力するようになっていました）
今回、wordから各個人情報を取り出し1つのexcelデータにして管理する
ことになりました。
社員番号、名前、住所・・・のように一覧にします。
一人ずつwordを開き、必要な箇所をコピーしexcelへ貼り付けるという作業を
繰り返していますが、もっと簡単な方法はありますでしょうか。
アドバイスよろしくお願いします。

No.1 ベストアンサー 回答者： keithin 回答日時： 2010/04/08 23:50

今ある大量のワードが，どのくらい綺麗に『統一された』フォーマットで作成されているか次第で，簡単にも難しくもなりそうですね。

「なんとなく合ってる」じゃ駄目で，「完全に一致」してるかどうかです。

アプローチ自体は色々考えつきますが，一例として。


調査：
一人分のワードを開き，Ctrl+Aで全部選択し，エクセルの１枚のシートのA1セルに無造作に貼り付ける
別の人のワードを開き，Ctrl+Aで全部選択し，エクセルの別のシートのA1セルに普通に貼り付ける
こうやってエクセルに直接コピーしてみたときに，欲しい情報が例えばA4とB5とD2セルに『確実にある』といった状態に持って行けるか，確認します。

準備：
たとえば100人分処理します。
空シートを１冊用意し，Sheet1からSheet100まで綺麗な数字の順番のシート名の空シートを100枚用意します。
＃Excel2003まででは，ツールメニューのオプションの全般で新しいブックのシーと枚数を100にしておいて，Ctrl+Nで一冊新しいシートを作成すると簡単にできます

手作業：
100個のワードを一つずつ開き
１個目のワードで
　Ctrl+Aで全部選択して
　シート１のA1に貼り付け
次のワードを開いて
　Ctrl+Aで全部選択して
　シート２のA1に貼り付ける
のようにして，100枚のシートにワードを丸ごと転記します

集約：
101枚目のシートの
A1セルに
Sheet1
と記入，えいやっと下向けにオートフィルドラッグして
A100に
Sheet100
まで，つるつるっと自動で作成します

B1セルに
=INDIRECT(A1&"!A4")
C1セルに
=INDIRECT(A1&"!B5")
D1セルに
=INDIRECT(A1&"!D2")
と記入，シート１の欲しいセルの値が参照できたら成功


B1:D1を選択し，下向けに用意したSheet100の行までつるつるっとオートフィルドラッグでコピーして完成。

この回答へのお礼

ためしに10件やってみました。
10件中9件のフォーマットは同じでしたのでできました！
出来ないところは後から補足するとして、作業量が
大幅に減りました。
ありがとうございます！！

お礼日時：2010/04/11 14:53