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

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