[Vba]求助，我想将一个长篇doc格式的文件分成多个txt

我有一个分很多章的文件，现需要将每一章分成多个txt文件，请问如何写vba代码？

正文内容如下：

第一章  这章的标题（硬回车）
这是本章的第一段（硬回车）
这是本章的第二段（硬回车）
第二章 此章的标题（硬回车）
此章的第一段（硬回车）
.
.
.
.
共有很多章，每章的段数不固定。章下没有条款。

现需要将这个文章分成一章一个txt 文件，文件章对应数字的文件名，比如001.txt   002.txt。

请高手帮忙

http://club.excelhome.net/redire ... 6&goto=lastpost

http://club.excelhome.net/viewthread.php?tid=460256

http://club.excelhome.net/redire ... amp;goto=nextnewset

http://club.excelhome.net/redire ... amp;goto=nextoldset

http://club.excelhome.net/viewthread.php?tid=91460