大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

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

Admin | 2015-10-20 8:00:36 | ReadNums | 885 | 标签 Word教程 | 打印本页
     

  使用下面的代码,你就可以将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


问题未解决:搜索文章

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
感谢大家的支持。
20xx年x月x日

……