ワードのテキストボックスの中のテキストを一括取り出したい

解決済

質問者：m-sakapy
質問日時：2010/01/18 10:57
回答数：4件

ワード文書でテキストボックスを多用したデータを、テキストデータに変換したいのですが、ボックスの中のテキストがテキスト化できません。そこだけ空白になってしまいます。一つひとつ選んでコピペをしないとだめみたいです。一括でテキストデータ化する方法をご存知でしたら教えてください。わかりにくい質問文ですみませんが、よろしくお願いします。

使用OS／Mac OS X 10.5.8
アプリケーション／Microsoft Word2008 for Mac

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： capy2009
回答日時：2010/01/18 12:51

こんな AppleScript はいかが？

Word で書類を開いた状態でこれを実行すると、デスクトップに test.txt というテキストファイルができるはずです。
その中身は、まず本文が一括して書き出され、その後にテキストボックスの内容が順番に続くというものになります。
ごく簡単な書類でしか試していないので、複雑な書類でうまく行く保証はないですが、一度試してみてください。

tell application "Microsoft Word"
set myText to content of text object of document 1
set i to 1
repeat while text box i of document 1 exists
set myText to myText & the content of text range of text frame of text box i of document 1
set i to i + 1
end repeat
end tell
set myFile to open for access file ((path to desktop as string) & "test.txt") with write permission
write myText to myFile
close access myFile

- 0
- 件

通報する

この回答へのお礼

capy2009さん、ご回答をいただきありがとうございます。試してみました。初AppleScriptです。不思議不思議、あっというまに抽出できました。助かりました！

ところで、テキストボックスのテキストは本文の後に続きますが、なぜか逆順に抽出されていました（例えばABCの順と続くテキストボックスはCBAと逆になる）。また、なんの加減かわからないのですが、突然脈絡のない場所に抽出されるものもありました。
複雑なつくりはしていないと思われるデータで、全体20万字ぐらいの論文です。これから、文脈にそって抽出したテキストを本文の入れ込みます。

私はワードを使わないのでこのテキストボックスの機能が一体なんのためにあるのかさっぱりわかりません。傍点とかつけたところもテキスト化できていないし…。ワード使いこなすのやめてほしい…（ごめんなさい、グチって）。

AppleScriptに感動。ほんとうにありがとうございました！

通報する

お礼日時：2010/01/18 15:19

No.4

回答者： te12889
回答日時：2010/01/18 15:54

1番です。

解決、おめでとうございます。

スクリプト作業の敷居が高いようでしたら、置換機能での段落記号の削除を提案しようかと思いましたが、解決されて何によりです。(^0^)/

- 0
- 件

通報する

この回答へのお礼

一番さん、おかげさまでなんとかなりました。
どうもありがとうございました！
ちなみに、置き換え機能の段落記号削除も、ちんぷんかんぷん…

通報する

お礼日時：2010/01/18 16:28

No.3

回答者： capy2009
回答日時：2010/01/18 15:42

うまく動いたようで何よりです。

> ところで、テキストボックスのテキストは本文の後に続きますが、なぜか逆順に抽出されていました（例えばABCの順と続くテキストボックスはCBAと逆になる）。また、なんの加減かわからないのですが、突然脈絡のない場所に抽出されるものもありました。

多分テキストボックスの作成順です。
目には見えませんが、テキストボックスにはそれぞれ番号が付いており、その順番で抽出しています。