如何把一个排版类似、较长的Word文件，分页批量保存？

通常的办法就是把Word每两页拷贝，再新建空白Word文档，粘贴。如果文档页数不算多，也可采用，但是在页数很大的情况下，就不宜采用手工操作。

另外可用vba来实现批量自动处理。在文档的thisdocument的代码页中输入以下代码，然后执行SUb saveparagraph() 即可：

option explicit

SUb saveparagraph()

dim i as integer, pageno as integer

dim adoc as document

dim mydoc as document

dim spage as string

set mydoc = thisdocument

'文档视图设定为页面方式

activeWindow.view.type = wdpageview

mydoc.repaginate

'获得文档页数并赋值给变量 pageno

pageno = mydoc.bUIltindocumentProperties(wdPropertypages)

For i = 1 to pageno

mydoc.activate

' 光标移动到文档某一页的开始

selection.goto what:=wdgotopage, which:=wdgotonext, name:=i

' 全选文档某一页的所有内容

selection.endkey unit:=wdstory, extend:=wdextend

spage = selection.text

'保存到一个文件中

set adoc = documents.add

adoc.content.text = spage

adoc.saveas filename:="c:\" & cint(i) & ".doc"

adoc.close

next

end SUb

楼主可试试这个vba.