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

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

2、按下快捷键Alt+F11，打开VBA编辑界面，如下图所示。

3、复制如下图代码到空白区域，如下图所示。

Sub 鱼木混猪()

 

Application.ScreenUpdating = False

 

Set MD = ThisDocument

 

ActiveWindow.View.Type = wdPageView

 

MD.Repaginate

 

PageNo = MD.BuiltInDocumentProperties(wdPropertyPages)

 

For i = 1 To PageNo

 

MD.Activate

 

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i

 

Selection.EndKey Unit:=wdStory, Extend:=wdExtend

 

sPage = Selection.Text

 

Set aDoc = Documents.Add

 

aDoc.Content.Text = sPage

 

aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"

 

aDoc.Close

 

Next

 

Application.ScreenUpdating = True

 

End Sub

 

4、使光标处于代码中间，点击“运行子程序”按钮，如下图所示。

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

1、1.Alt+F11

2.复制代码

3.运行代码

4.查看独立文档

5.完成