ワードで書いてテキスト形式で保存するとき

質問

officeXpを使用しています。
ワード(2002)でテキスト形式で保存するのですが

その際にワード上で例えば20個の文書をページごとに　分割して作成した場合。これを　ページ毎にテキストファイルで保存する方法はあるのでしょうか？

現状ワード上で1ページ作成して　それをテキストに保存を繰り返しています。これを　数ページ作成して　ある程度作成してテキスト形式で
保存したいと思っています。

回答No.3

enunokokoro

No.1の回答者さんが紹介しているサイトのマクロを一部書き換えれば、
直接テキスト形式で保存してくれますよ。

※変更部分
【 Sub BreakOnPage() 】の場合

ChangeFileOpenDirectory "C:\"　
'↑"C:\"のディレクトリは保存したいフォルダのパスにします

' ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
'↑このままではWord文書としてDocになりますので以下にようにします
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".txt", FileFormat:=wdFormatText

これ以外のファイルネームや保存フォルダを開いているWord文書と同じ
場所にしたいなら、別途用意する必要はあります。

回答No.2

DIooggooID

先ほどご紹介した、"マクロ" を利用すると、ページ単位（複数ページの資料が、１ページにつき１ファイル）の形式に分解されます。

ページごとのファイルになった Word 文書をまとめて、こちらの VBS を使うと、一気にテキストファイルに変換してくれます。

http://www.vector.co.jp/soft/win95/writing/se259785.html

回答No.1

DIooggooID

こちらの記事が参考になると思います。

http://support.microsoft.com/kb/306348/ja

お礼

試してみましたが　うまくできませんでした。
また、試している最中にこれならば　いちいちテキスト保存が
間違いがなくできるような気がして　挫折しました。

暇がある時　もう一度再度　がんっばってやって見ようと思っています。

仕事によっては　間違いなくできそうですので