怎么让百度收录网站所有网页,网站开发net教程,网站开发人员选项,广西传导网络科技有限公司本文介绍基于VBA语言#xff0c;对大量含有图片、文本框与表格的Word文档加以批量自动合并#xff0c;并在每一次合并时添加分页符的方法。 在我们之前的文章基于Python中docx与docxcompose批量合并多个Word文档文件并逐一添加分页符#xff08;https://blog.csdn.net/zhebu…  本文介绍基于VBA语言对大量含有图片、文本框与表格的Word文档加以批量自动合并并在每一次合并时添加分页符的方法。 在我们之前的文章基于Python中docx与docxcompose批量合并多个Word文档文件并逐一添加分页符https://blog.csdn.net/zhebushibiaoshifu/article/details/117718274中介绍过基于Python语言的python-docxdocx模块与docxcompose模块对大量Word文档加以合并的方法但是基于这种方法我们无法对具有非明确大小的文本框的Word加以合并因为python-docx无法处理含有这种元素的Word文件。最近一位老哥提出了合并含有文本框的Word的需求所以就尝试用VBA来实现这一操作这里就介绍一下具体的方法。 其中VBA是Visual Basic for Applications的缩写其是基于Visual Basic语言的一种扩展主要应用于微软Office套件中各种应用程序例如Word、Excel与PowerPoint等其允许用户创建自定义的宏和应用程序来自动执行各种任务从而提高工作效率。目前VBA主要就是应用于需要批量操作Office文件的各类场景中。 本文的需求如下。现在有一个文件夹其中包含大量文档文件如下图所示其中每一个文档中都包含图片、表格、文本框等较为复杂的元素。 我们现在希望可以批量将文件夹中大量文档文件加以合并并且在合并时每次都需要在新的1页中合并下一个文件也就是不同文件的内容不要出现在1页中。 明确了需求即可开始代码撰写。本文所需代码如下。 Sub merge_word()Dim time_start As Single: time_start TimerDim word_result As DocumentDim word_temp As DocumentDim file_dialog As FileDialogDim str As StringDim fileDim num As LongSet word_result ActiveDocumentSet file_dialog Application.FileDialog(msoFileDialogFilePicker)With file_dialog.AllowMultiSelect True.Title 请选择【一个或多个】需要与当前文档合并的文件With .Filters.Clear.Add Word文件, *.doc*;*.dot*;*.wps.Add 所有文件, *.*End WithIf .Show ThenApplication.ScreenUpdating Falsenum .SelectedItems.countFor Each file In .SelectedItemsSet word_temp Documents.Open(file)word_temp.Range.Copyword_result.Range(word_result.Range.End - 1, word_result.Range.End).SelectDoEventsSelection.PasteSelection.InsertBreakword_temp.Close wdDoNotSaveChangesNextApplication.ScreenUpdating TrueEnd IfEnd WithSet word_result NothingSet word_temp NothingSet file_dialog Nothingstr Format(Timer - time_start, 均已成功合并共用时0秒)str Format(num, 您选择合并0个文件) strMsgBox str, vbInformation, 文件合并结果 End Sub上述代码中我们首先进行变量声明。time_start是一个Single类型的变量用以记录代码开始执行的时间Timer函数返回一个单精度浮点数表示从计算机启动到现在经过的秒数。word_result是一个Document类型的变量用以存储当前打开的Word文档。word_temp是另一个Document类型的变量用以临时存储要合并的其他Word文档。file_dialog是一个FileDialog类型的变量用以存储文件选择对话框对象。str是一个字符串类型的变量用以存储最终要显示在消息框中的合并结果信息。file用以在循环中存储用户选择的每个文件路径。num是一个长整型变量用以存储用户选择的文件数量。 随后我们获取当前文档。将当前正在编辑的Word文档赋值给word_result变量这个文档就是要合并其他文档内容的结果文档。 接下来我们打开文件选择对话框。创建一个文件选择对话框对象并逐一设置对话框的属性其中允许用户选择多个文件自定义对话框标题并设置文件类型过滤器其中第一个表示只显示Word文档文件第二个则表示显示所有类型的文件。 紧接着通过If .Show Then语句判断用户在对话框中是否选择了文件。如果是的话执行合并操作。其中首先获取用户选择的文件数量随后循环遍历每个选择的文件——打开每个选择的文件作为临时文档将临时文档的全部内容复制到剪贴板将光标定位到目标文档也就是结果文件的最后一个字符处并将剪贴板中的内容粘贴到目标文档的末尾同时在粘贴的内容后插入一个分页符最后关闭临时文档而不保存更改。接下来进行下一次遍历。其中需要注意这里如果我们不添加DoEvents这句代码会导致其下方的Selection.Paste这句代码报错虽然会报错但其实选择调试后继续按下F5程序也还是可以运行。 最后即可清理变量引用并计算合并操作的耗时将结果信息显示在消息框中。 代码的执行方法如下。首先在任意路径创建一个空白的Word文档作为我们的结果文件。随后在这个文档中同时按下Alt键与F11键进入VBA宏界面如下图所示。 随后在左上角的Normal处右键选择“插入”→“模块”如下图所示。 随后在弹出的窗口中复制前述代码如下图所示。 接下来按下F5键即可开始运行代码。其中首先弹出一个选择文件的窗口我们选择待合并的文件即可如下图所示。 随后点击“确定”即可开始合并文件。稍等片刻合并完成并将弹出如下所示界面。 此时回到我们打开的Word文件中即可看到文件已经被合并在内了。 其中上图中紫色框所示区域就是我这里待合并文件的开头部分紫色框内红色的两段线仅仅是为了遮挡文件中的部分信息没有别的含义大家理解即可——可以看到每一次新的文件合并时都是在新的一页操作的符合我们的需求。 至此大功告成。 欢迎关注疯狂学习GIS