请问如何将word按页拆分成N个word文档1

你没说你的Word文件是什么样的，如果word是由图形、图片、表格、文字等各种元素组成的，并且有复杂的格式设置（图表组合、页面设置等等），你若简单地各页复制另存，就会造成版面变化甚至内容丢失。

要想保持各页面中内容和排版不变，你可以在每页的最后插入分节符（也就是在下一页的第一个字符前插入分节符），然后将文件另存为新文件，在新文件中找出要保留的页面，将其余的页都删掉。

重复以上操作以保存每一页文件。

如果文件页数很多，上述方法很繁琐，你可以采用软件转化的方法，简单介绍如下：1、先把word转换为pdf文件；2、用工具把pdf文件按每页拆分成多个独立的PDF文件（有很多工具，如pdfspme_win就很好）；3、用转化工具把拆分的pdf文件在转回word文件（有很多工具，如SolidConverterPDF），这样目的就达到了。

至于word与pdf如何转化，方法很多，此处略掉，你可以百度一下。

你要问为什么要转化到pdf再转回来，因为只有转到pdf才能保证你的各个页面排版不会变化，通过这样的方法你可以得到与原始word文件完全一致的单页文件。

当然你也可以借助于office中的虚拟打印机同样可以达到目的。

有很多WORD文档,每个文档有2到10页不等,想要把所有WORD都按...

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.SaveAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox ＂结束！＂End Sub

怎么将word文档每页另存为独立文档

1. 很多PDF阅读器都可以实现，如福熙阅读器、StylePDF阅读器、adobe acrobat X pro ，功能多，使用速度快，并且支持文本域等功能，提取只需要安装以后打开要提取的PDF文件，然后菜单栏中选择“文档--提取页面”。

2. 在PDF浏览器中的工具栏有快照选项，勾上后，点击你要选择的页，复制到Word中，即可生成一个文档，如果生成PDF文件，查看word里是否有转换器，可以安装另存为PDF格式。

转载请注明出处51数据库 » word拆分成单独的页面