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

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

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

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

No.3 回答者： enunokokoro 回答日時： 2009/05/12 14:23

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 回答日時： 2009/05/12 13:37

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

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

http://www.vector.co.jp/soft/win95/writing/se259 …

No.1 回答者： DIooggooID 回答日時： 2009/05/12 13:24

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

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

この回答へのお礼

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

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

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

お礼日時：2009/05/30 01:09