- ベストアンサー
Word文書から特定の文字を抜き出すには
Wordの文書内の指定した記号で囲まれた文字、 （例えば、"「"と"」"を指定すると、文書内の「」で囲まれた文字） を全部抜き出して、Excel上に出力したいのですがどうしたらいいのでしょうか？ フォルダを指定して、そのフォルダに入ったWord文書を全て検索する。 指定する記号は、「」、【】、『』など5種類ほど、指定する。 このようなことがしたいのですが、書籍などの情報がなくて困っています。 よろしくお願いします。
- malco-mama
- お礼率100% (7/7)
- オフィス系ソフト
- 回答数5
- ありがとう数5
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
Officeの中だけで処理するなら、VBAプログラム（Officeのマクロ）を作らなければなりませんね。 Wordで元文書を開いた状態でマクロを起動。 マクロからExcelのオブジェクトを取得して置いて、「」、【】、『』等の並びにマッチングする部分を検索。 検索は、WindowsのRegExpオブジェクトを利用すると簡単に書けると思います。 一つマッチングする度に、マッチした範囲をExcelのセルに複写、次にマッチする箇所を検索・・・これを最後まで繰り返し。 終わったら、ExcelのWorkBookに名前をつけて保存・・・。 こんな感じですかね? 実際にコードを組むにはそれなりに手間なんで、やってはいませんが。(^^; VBAに関するリファレンスは、各OfficeアプリケーションからVBAエディタを起動し、ヘルプを参照すればそれなりに詳しく書かれていますよ。 MSの各種言語に関する詳細な情報は、MSDN Onlineを参照してみて下さい。 MSがリリースしているありとあらゆる言語やOSの詳細な情報を読む事ができます。 （下のURLは日本語サイトなので、日本語に翻訳されている情報のみです。 英語サイトならば、全ての情報が英語で読めます。）
お礼
こんばんは、ご回答ありがとうございます。VBAだけでもできるのですね。 私はまだVBAの初心者なので、書籍等のサンプルを組み合わせて何とか必要な機能を実現している段階です。 Excel、Accessはいろいろと覚えてきましたが、そのほかのことはあまりわかりません。 今回はWordに関することなので、早速書店にいってみたのですが、WordVBAに関する本は1冊もなくあきらめていました。 VBAで実現できることがわかったので、ヘルプなどでもっと調べてみようと思います。
私も、こういった作業は、テキストに落とし、awkやperlで処理する作業だと思います。 Zz_zZさんが例示されたような正規表現を使い、*.txtを入力ファイルにすれば、それこそ、一網打尽のレベルでしょう。 おそらく、「１行野郎」に毛が生えた程度のスクリプトで、CSVまで持っていけると思います。
お礼
こんばんは、ご回答ありがとうございました。 恥ずかしながら、「perlって言葉は知っているけど何？」という状態で早速書店で本を買ってきました。 今から読むところです。 今回の仕事に役に立つか（間に合うか）わかりなせんが、今後の課題として取り組みたいと思います。
- Zz_zZ
- ベストアンサー率44% (756/1695)
ここなどは参考になるでしょうか？
お礼
ご紹介いただいたソフトKWICの件で、なかなかうまくいかなかったのですが、 教えてくださったURLのサポート掲示板に投稿することにより解決しました。 本当にありがとうございました。
- shota_TK
- ベストアンサー率43% (967/2200)
一網打尽に移動することはできないと思いますが，ひとつずつ拾うのは簡単です． 「編集→検索」で検索オプションを表示させ，「ワイルドカードを使用する」にチェックを入れます．そして，例えば【】で囲まれた文字列を検索したければ，「検索する文字列のところに【*】と記入します．半角のアスタリスクです．これは，トランプで言えばジョーカーの役割をしますので，【】で囲まれた文字列が全て検索されます． あとは，面倒ですけど，見つけ次第，一度本文に戻ってカット（コピーではなく）し，Ctrl＋Endで文末に移動しペーストします．再び検索ウィンドウをクリックして次を検索すれば，割と簡単に【】の文字列を集められると思います．
お礼
shota_TKさん、早速のご回答ありがとうございました。 大量に文書があるので、VBAの自動処理を想定していたのですが、 やはり一つ一つ検索するしかないのですね。とても残念ですが、地道に頑張ります。
お礼
こんばんは、ご回答ありがとうございました フリーソフトを早速インストールしました。 最初漢字二字の言葉を検索してみて、スムーズにいき、 CSVファイルに出力して感動していたのですが、 その後、引き続き試そうとすると「サービスが実行中ではありません。」 というメッセージがでて、検索を受け付けてくれなくなりました。 アプリケーションを起動しなおしても同じ状態です。 何故か、もしご存知でしたら教えていただけないでしょうか？ よろしくお願いします。