当前位置:主页 > 健康知识 > 正文

Word按页拆分成多个独立文档(Word文档拆分成多个文档)

前言|职场实例今天遇到了这样的一个Word文档问题:如何将一个Word文档按页拆分成多个独立文档?假设我们的这个Word文档内含有页,然后将这页文档按页批量拆分成个单独的Word文档。如果在页数数量少的情况下,我们完全可以通过手动一个一个新建Word文档,然后将总文档中的每页内容复制粘贴到新建的一个一个的Word文档中。但是如果页数数据量大的话,再这样无技巧的傻傻的工作,那效率就太低了。

欧易okex

下面小编就通过模拟一个简单的例子来说明这个问题。如下图所示:我们将含有2页的名称为“Excel情报局”的总Word文档放在一个新建的文件夹内。

这个名称为“Excel情报局”的Word文档中的2页内容如下图所示:第一页为一首词“将进酒”,第二页同样为一首词“水调歌头”。最终实现的效果是:将名称为“Excel情报局”的Word文档中的2页内容按页批量拆分成2个单独的文档,两首词分别放在两个单独的文档中,如下图所示:解决方案|解题步骤在文件夹内打开那个需要按页拆分的文档(本例中它的文件名叫做“Excel情报局”)键入ALT+F打开VBA编辑器(或者点击“开发工具”选项卡,点击"visualbasic,进入VBA编辑器)。点击“插入-模块”,将下面一段VBA代码复制粘贴到该新建的模块中。

代码如下:OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentoRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ToActiveDocument.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))SetoNewDoc=Documents.AddSelection.PasteoNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox"结束!"EndSub点击上方的“运行-运行子过程/窗体”,稍等几秒会弹出一个拆分成功结束的提示框,点击“确定”后关闭VBA窗口,打开文件夹,发现已经拆分完成了,出现2个独立的Word文档。分别点击打开拆分好的Word文档,我们发现每首词已经分别整齐的放置到了里面。

版权声明:本文来自互联网,该文仅代表作者本人,不代表本站立场,不承担相关法律责任,如有涉嫌抄袭、侵权和违法违规内容,请联系我们QQ:3119355755,查实将立刻删除。
本文链接:http://www.irnw.net/jkzs/4262.html

最新文章