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

发布网友

我来回答

共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，请高手测试下，谢谢