word分页保存

WORD分页保存的问题
请问一个700页的文档，我想分成700个当独页的文档。用什么办法又快又好。高手指点。问题看起来简单可实现起来比较困难。

这个代码怎么用???
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

word分页保存 word 文档如何分页 WORD图表分页问题 关于word分页 word 的分页 word分页问题。 word 分页拆分 word分页为什么不同？ word表格分页后不全 office2003 word 不会自动分页