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.完成
