VBA
可以的，通过
VBA编辑器插入模块代码运行来实现。代码为：Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As Stri来自ng, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As Object Set fso = CreateObject(Scripting.FileSystemObject)Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentoRange.Collapse wdCollapseStart
*.SelectFor nIndex = 1 To ActiveDocument.Conten杨济解假却阿消出草投t.Information(wdNumberOfPagesInD就立想间ocument)oSrcDoc.Bookmarks(page).Range.Cop易程航y*.Windows(1).ActivateApplication.
*.Target = wdBrowsePageApplication.*.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolder原持初Name(strSrcName),fso.GetBaseName(strSrcName) & _ & nIndex & . & fso.GetExtensionName(strSrcName))Set oNewDoc = Documents.AddSelection.PasteoNewDoc.SaveAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox 结束！End Sub实操步骤如下：1、在桌面新建一个文件夹，并在文件夹里新建一个
word文档取名为提取页，如下图。
2哪、打开文档，为了方便演示在里面先输入4页数据，如下图。
3、键盘上按Alt+F11打开VBA编辑器，选择菜单“插入-模块”，如下图。
word
4、拷贝上面代码，粘贴到模块代码输入页里，如下图。
5，出现结束提示框，则完成，如下图。
6、这时点击确定并关掉VBA编辑器，打开原文档所在的文件夹，就可以看到提取出来的每一页单独文档，文档名字后面的数字代表页码，如下图。
