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

 时间:2024-10-12 15:13:13

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

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

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

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

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

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

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

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

word文档中,如何把每页变成单独一个word文档
  • word文档每一页变成单独文档的方法
  • word文档中,如何把每页变成单独一个word文档?
  • word文档中,如何把每页变成单独一个word文档?
  • Word如何批量将每一页另存为单独的文件
  • word如何把多页文件拆分为每页一个文档
  • 热门搜索
    三年级手抄报图片 小学四年级手抄报 关爱残疾人手抄报 有关端午节的手抄报 五一节手抄报 英语圣诞节手抄报 2020国庆节手抄报 国防手抄报简单又字少 法律手抄报图片 电子手抄报怎么做