Word是最常用的文字处理软件，利用它可以很方便地完成文字编辑工作。如果在Word中有很多页，想把每一页存储为一个独立的Word文档，常规的方法很难实现。利用Word中自带的VBA写代码，可以轻松实现。工具/原料moreWindows 7操作系统Office2013方法/步骤1/5分步阅读

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

2/5

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

3/5

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

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) .docaDoc.CloseNextApplication.ScreenUpdating = TrueEnd Sub

4/5

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

5/5

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

总结1/1

1.Alt+F11

2.复制代码

3.运行代码

4.查看独立文档

5.完成

注意事项

如果要存储到其他位置，可以将代码中的C:\改为其他存储路径

如果要想按其他规则命名，可以将代码中的Cint(i)改成想要的命名规则

WORD文档拆分