[求助]如何用VBA实现每一页存为一个文件？

jacdy

现在用Word的邮件合并功能后，每一条记录都会生成一页，但我是希望在合并时把每一条记录的合并结果存为一个文件，而不是把所有的记录都存在一个文件。

大家有什么好技巧让合并时实现这个功能吗？或者用VBA把生成的文件的每一页都存为一个文件。谢谢！

守柔

可以帮我搜索一下本版吗？谢谢。

wddn

因需要而摘录过一个，为我解决了问题，希望能帮助大家：

Sub aa()
myPath = "D:\temp\"
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
curpage = 0
Application.ScreenUpdating = False
Do
   prepage = curpage
   pagenum = pagenum + 1
   Set myRange = myRange.GoToNext(What:=wdGoToPage)
   curpage = myRange.Start
   endpage = myRange.Previous.Start
   If curpage = prepage Then _
      endpage = ActiveDocument.Content.End
   ActiveDocument.Range(prepage, endpage).Copy
   With Documents.Add
      .Content.Paste
      .SaveAs myPath & "Page" & pagenum & ".doc"
      .Close
   End With
   If curpage = prepage Then Exit Do
Loop
Application.ScreenUpdating = True
End Sub