将word文档按分页另存为多个word文件的VBA代码

有时候需要将一个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 integer c
个人分类: VBA
想对作者说点什么? 我来说一句

导出到Word自动分页

wwx_zj wwx_zj

2009-12-24 15:19:00

阅读数:420

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭