参考 WD2002: How to Programmatically Save Each Page or Section of a Document As Separate File http://support.microsoft.com/kb/306348/EN-US/ 首先你需要建立一个新的巨集，然後将虚线部分取代为他的程式码 ---------------------------------------------------------------------------- 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 ---------------------------------------------------------------------------- 完成之後，每次你要另存的新文件就使用BreakonPage这个巨集执行， 变成自动帮你存成档案。 ps.她预设的储存位置是c:\，名称为test_<页码>.doc ※ 引述《bearsi (bearsi)》之铭言： : 请问大家 : 当合并列印後得到大量的新文件 : 有没有可能可以将这些新文件分开储存？ : 举例来说 : 当我合并列印後 : 得到了具有十笔资料的新文件 : 但是能不能够另存为十个档案呢？ : 这个问题我查了很久 : 没看过有相关的讨论 : 希望有人可以提供意见 : 谢谢 -- who make my blue eyes blue... --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 60.244.51.74