Word文档分割总结

方法：

1、 word创建子文件实现文件分割

2、 VBA实现

3、网上分割合并的插件软件

一、 word创建子文件实现文件分割

打开需要分割的文件 >> 视图 >> 大纲视图 >> 单击选择标题内容 >> 单击显示文档 >> 单击创建 >> 保存即可

二、 VBA实现

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；

2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；

3、粘贴下面的代码：

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

4、键入F5运行，看到“完成！”结束。

5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

不过那个是按单页拆分的。

如果想按照指定页数拆分，请使用下面的代码，其它步骤和原来那个方案相同。

Option ExplicitSub SplitEveryFivePagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As IntegerDim fso As ObjectConst nSteps = 100 ' 修改这里控制每隔几页分割一次Set fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentnTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To nTotalPages Step nStepsSet oNewDoc = Documents.AddIf nIndex + nSteps > nTotalPages ThennBound = nTotalPagesElsenBound = nIndex + nSteps - 1End IfFor nSubIndex = nIndex To nBoundoSrcDoc.ActivateoSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNext nSubIndexstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName))oNewDoc.SaveAs strNewNameoNewDoc.Close FalseNext nIndexSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub

三、网上分割合并的插件软件(请自行搜索word分割文件软件)

总结

方法一比较简单方便，分割较大的word文件比较容易；

方法二分割也不错，但我使用它来分割8M左右大文档（加载需要10多分钟）不可行，报错或者内存不足，小文件还是很方便的；

方法三自动化，大文件没试过。

转载于:https://www.cnblogs.com/OneFri/p/5294054.html

Word文档分割总结相关推荐

使用VBA将大纲级别定义良好的单个Word文档按指定的大纲样式分割成多个文档
我们知道,大纲级别定义良好的Word文档可以轻松用MindManager转换成思维导图.但是,对于一个极长的文档,例如一本教材,直接导入MindManager转换后的思维导图,因为内容过多,仍然很难阅 ...
word文档一个表格分割成两个表格
word文档一个表格分割成两个表格按住键盘上的ctrl+shift+enter即可快速实现分割表格效果. posted @ 2018-05-21 13:08 stujike123456 阅读( .. ...
Word开发工具Aspose.Words功能演示：使用C ++分割MS Word文档
MS Word是用于存储和共享信息的流行格式.在某些情况下,想将Word文档拆分为多个文件.例如,文档可能包含需要与不同人员共享的不同部分,或者包含一些需要分开的机密信息.在这种情况下,拆分Word文 ...
Word处理控件Aspose.Words功能演示：使用C＃分割MS Word文档
MS Word文档被广泛用于保存和共享信息.在某些情况下,可能需要从可能位于不同部分或页面的Word文档中拆分数据.另外,还可能需要将单个文档的页面拆分为多个文档. 根据这种情况,在本文中,将展示如何 ...
python分解word文档为多个_将一个word文档按一页或多页拆分成多个文档
工作中,有时候碰到需要将一个比较大的word按照指定的页数分割成若干个小的word文档,下面提供分割的方法供参考: 一.按照单页拆分 1.在Word里面打开那个需要分割的文档(假设它的文件名叫做&qu ...
html页面内分栏显示不全,怎么消除Word文档分栏后栏间不平衡现象
IE10浏览器打开网页鼠标不能滚动查看是怎么回事? IE10浏览器黑屏,但是滚动鼠标就好了,不到一分钟...在控制面板的电源设置中,将显示器的关闭时间调到你希望的时刻就可以了. word文档分栏后左右 ...
Word文档处理控件TX Text Control .NET for WPF
Text Control .NET for WPF是一款功能全面的Word文档处理控件,可进行所见所得的文档编辑,加载.保存.编辑DOC.DOCX.RTF等文件,利用该控件还可以构建强大的Word报表 ...
QT下使用QAxObject打开word文档，文档路径含有空格open出错的解决方法
将要打开的文档转换为本地路径即可,缺省状态下QT路径的分割符为"/",而windows下路径的分隔符为"\",大多数场景下使用QT默认的就行,但是在操作QAxO ...
使用FreeMarker导出固定格式word文档
使用FreeMarker导出固定格式word文档一.下载FreeMarker的jar包下载地址:http://freemarker.org/freemarkerdownload.html,导入项目 ...
freemarker导出word文档——WordXML格式解析
前不久,公司一个项目需要实现导出文档的功能,之前是一个同事在做,做了3个星期,终于完成了,但是在项目上线之后却发现导出的文档有问题,此时,这个同事已经离职,我自然成为接班者,要把导出功能实现,但是我看 ...

Word文档分割总结

Word文档分割总结相关推荐

最新文章

热门文章