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

《如何把word文档每一页变成单独一个word文档.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、让word文档每一页单独成为一个文档的操作说明操作步骤：第一步，将需要编辑的word文档放到"D:temp"这个路径下；第二步，使用快捷键“Alt+F11”切换到“编辑器”状态；第三步，点击“插入”→“模块”；第四步，将下述代码复制到模块编辑器中，点击“运行”。源代码：Subaa()myPath="D:temp"Selection.HomeKeyUnit:=wdStorySetmyRange=Selection.Rangecurpage=0Application.ScreenUpdating=FalseDoprepage=curpagep

2、agenum=pagenum+1SetmyRange=myRange.GoToNext(What:=wdGoToPage)curpage=myRange.Startendpage=myRange.Previous.StartIfcurpage=prepageThen_endpage=ActiveDocument.Content.EndActiveDocument.Range(prepage,endpage).CopyWithDocuments.Add.Content.Paste.SaveAsmyPath&"Page"&pagenum&".doc"

3、.CloseEndWithIfcurpage=prepageThenExitDoLoopApplication.ScreenUpdating=TrueEndSub