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

Question

我有一个word，里面记录的是员工评估表，每人两页，就是每两页一个人，当初因为需要把87名员工全部都保存到一个word里面了，现在我想把里面的内容，每两页保存一个word，也就是把员工分开保存，要是一个一个保存的话，较耗时间，如果有办法，以后会提高工作效率，期待大家回答。十分感谢。

Answer 1

通常的办法就是把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.追问

我是了下，第一此提示没有 end sub 我在最后加了一个，然后运行提示for 没有next，请高手测试下，谢谢

Answer 2