[原创并分享]分页保存

apsi

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

wdj19840810

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

请指教了，谢谢

meiyisi

9搂问题我也遇到了，期待楼主帮忙啊！先行叩谢了

守柔

QUOTE:

以下是引用meiyisi在2008-9-24 13:05:02的发言：
9搂问题我也遇到了，期待楼主帮忙啊！先行叩谢了

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

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

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

2008-9-24 17:23 上传

点击文件名下载附件
[原创并分享]分页保存

liurulin

好东西，能省多少力气!!

tangqingfu

原帖由 守柔 于 2008-9-24 17:25 发表
QUOTE:以下是引用meiyisi在2008-9-24 13:05:02的发言：9搂问题我也遇到了，期待楼主帮忙啊！先行叩谢了出现这类问题的原因主要是页面中只有图形没有实际文字所造成的，我粗略的修改了一下，请再测试。注意，对于邮件 ...

谢谢守版,收藏学习!

sunqifa

XIEXIE，分享--
支持原创

亚日

找了好长时间了，终于找到了，谢谢谢

亚日

我用2007，好像设置文件名长度不起效

亚日

是我弄错了，把字节和字符数弄混了，一个中文字只算一个，我算成2个了