如何用vb分割一个word文档，生成多个小文档

原word文档内容大致为/////////////
标题1（居中字体为“方正宋黑简体”大小为“小二”）
内容1标题2
内容2
.........
///////////////希望能分割成为
标题1.doc (内容为原文档标题1和内容1，且保留原格式、字体)
标题2.doc
...........最好能不引用word对象，直接用vb代码创建对象
希望能给出代码，多谢！！