[原创并分享]分页保存

Sub BreakOnPage()
   ' Used to set criteria for moving through the document by page.
   Application.Browser.Target = wdBrowsePage

   For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
     
      'Select and copy the text to the clipboard
      ActiveDocument.Bookmarks("\page").Range.Copy

      ' Open new document to paste the content of the clipboard into.
      Documents.Add
      Selection.Paste

      ' Removes the break that is copied at the end of the page, if any.
      Selection.TypeBackspace
      ChangeFileOpenDirectory "C:\"
      DocNum = DocNum + 1
      ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
      ActiveDocument.Close

      ' Move the selection to the next page  in the document
      Application.Browser.Next
   Next i
   ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

http://support.microsoft.com/kb/216201/zh-cn

守柔大哥，我碰到和九楼的一样的问题，怎么办啊

请指教了，谢谢

出现这类问题的原因主要是页面中只有图形没有实际文字所造成的，我粗略的修改了一下，请再测试。

注意，对于邮件合并后的子文档，在对话框"是否需要处理页尾的分隔符(分页符/分节符)?它可能会影响文档结构."时，选否。

PPwOx82r.rar (15.14 KB, 下载次数: 528)