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

1、如下图所示，Word文档中有很多页，想要将每一页保存为一个独立的Word文档。

3、复制如下图代码到空白区域，如下图所示。Sub 鱼木混猪()Application.ScreenUpdating = FalseSet MD = ThisDocumentActiveWindow.View.Type = wdPageViewMD.RepaginatePageNo = MD.BuiltInDocumentProperties(wdPropertyPages)For i = 1 To PageNoMD.ActivateSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=iSelection.EndKey Unit:=wdStory, Extend:=wdExtendsPage = Selection.TextSet aDoc = Documents.AddaDoc.Content.Text = sPageaDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"aDoc.CloseNextApplication.ScreenUpdating = TrueEnd Sub

5、根据文档页码的多少，等待一段时间后，打开C盘，可以看到根目录下就放置了拆解出来的独立的Word文档，如下图所示。