TO——守柔：邮件合并后分拆成单个文档保存的代码应用问题请教

dygcs

szqhb 发表于 2011-1-25 21:59
Sub 每N页分割为一个新文档__保存到同目录下()
'特别鸣谢"雨雪霏霏、守柔版主。
    Dim MyPath As Strin ...

此段代码有一下问题需要完善：
1.页面设置为横版的文档，在分割后形成的是1页横版内容页带1页竖版空白页，当删除竖版空白页之后，前页也会变成竖版，导致内容重排，很麻烦。
2.页面设置为竖版的文档，在分割后每份文档也会带上一页空白页

以上问题会额外增加排版负担，望高手研究指点。

right1406

收藏，学习

天使Aster

szqhb 发表于 2011-1-25 21:59
Sub 每N页分割为一个新文档__保存到同目录下()
'特别鸣谢"雨雪霏霏、守柔版主。
    Dim MyPath As Strin ...

请问这个代码怎么修改能把新文档按照首行标题存成新的文件名啊？

250488744

szqhb 发表于 2011-1-25 21:59
Sub 每N页分割为一个新文档__保存到同目录下()
'特别鸣谢"雨雪霏霏、守柔版主。
    Dim MyPath As Strin ...

我的Word文档里面应该是有很多分页符的，按2页切割，但切割后变成3页，最后一页是空白的。我删掉最后一页的，前两样就变了，感觉要疯