让word文档每一页单独成为一个文档的操作说明
操作步骤：
第一步，将需要编辑的word文档放到\"D:\emp\\\"这个路径下；
第二步，使用快捷键“Alt+F11”切换到“编辑器”状态；
第三步，点击“插入”→“模块”；
第四步，将下述代码复制到模块编辑器中，点击“运行”。
源代码：
Sub aa()
myPath = \"D:\emp\\\"
Unit:=wdStory
Set myRange =
curpage = 0
= False
Do
prepage = curpage
pagenum = pagenum + 1
Set myRange = (What:=wdGoToPage)
curpage =
endpage = If curpage = prepage Then _
endpage = (prepage, endpage).Copy
With
.
.SaveAs myPath & \"Page\" & pagenum & \".doc\"
.Close
End With
If curpage = prepage Then Exit Do
Loop
= True
End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容