word怎样提取单独一页(word怎样提取单独一页保存)

关于word怎样提取单独一页，word怎样提取单独一页保存这个很多人还不知道，今天小蚪来为大家解答以上的问题，现在让我们一起来看看吧！

1、可以的，通过VBA编辑器插入模块代码运行来实现。

2、代码为：Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentoRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName),fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))Set oNewDoc = Documents.AddSelection.PasteoNewDoc.SeAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub实步骤如下：1、在桌面新建一个文件夹，并在文件夹里新建一个Word文档取名为提取页，如下图。

3、2、打开文档，为了方便演示在里面先输入4页数据，如下图。

4、3、键盘上按Alt+F11打开VBA编辑器，选择菜单“插入-模块”，如下图。

5、4、拷贝上面代码，粘贴到模块代码输入页里，如下图。

6、5，出现结束提示框，则完成，如下图。

7、6、这时点击确定并关掉VBA编辑器，打开原文档所在的文件夹，就可以看到提取出来的每一页单独文档，文档名字后面的数字代表页码，如下图。

本文到这结束，希望上面文章对大家有所帮助。