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

来源：知库网

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

操作步骤：

第一步，将需要编辑的第二步，使用快捷键“

word文档放到\"D:\emp\\\"这个路径下；Alt+F11”切换到“编辑器”状态；

；

。

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

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

源代码：

Sub aa()

myPath = \"D:\emp\\\"

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

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文