如何把word文档每一页变成单独一个word文档

让word文档每一页单独成为一个文档的操作说明

操作步骤：

第一步，将需要编辑的word文档放到"D:\temp\"这个路径下；

第二步，使用快捷键“Alt+F11”切换到“编辑器”状态；

第三步，点击“插入”→“模块”；

第四步，将下述代码复制到模块编辑器中，点击“运行”。

源代码：

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