vba代码每一页都保存成为一个word文件

Admin | 2015-10-20 8:00:36 | 被阅次数 | 6319

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　使用下面的代码，你就可以将word中的每一页，单独保存成为一个文档。

　　Option Explicit

　　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

该杂文来自： Word杂文

上一篇：Word同一文档不同位置实现同步更新内容

下一篇：Word分栏的常见问题