让 word 文档每一页单独成为一个文档的操作说明操作步骤：第一步，将需要编辑的 word 文档放到"D:\temp\"这个路径下；第二步，使用快捷键“Alt+F11”切换到“编辑器”状态；第三步，点击“插入”→“模块”；第四步，将下述代码复制到模块编辑器中，点击“运行”。源代码：Sub aa()myPath = "D:\temp\" Unit:=wdStorySet myRange = curpage = 0 = FalseDo 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 DoLoop = TrueEnd Sub
