Word页分割的宏实现

Sub SplitPage()
    myPath = "c:/"     '生成文件所在的目录
    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.End
       If curpage = prepage Then _
          endpage = ActiveDocument.Content.End
       ActiveDocument.Range(prepage, endpage).Copy
       With Documents.Add
          .Content.Paste
          .SaveAs myPath & "/WordSub" & pagenum & ".doc"    '命名,提取了表格中的数值以及页码作为文件名
          .Close
       End With
       If curpage = prepage Then Exit Do
    Loop
    Application.ScreenUpdating = True
End Sub