VBA批量合并带有图片、表格与文本框的Word

  本文介绍基于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套件中各种应用程序,例如WordExcelPowerPoint等;其允许用户创建自定义的宏和应用程序来自动执行各种任务,从而提高工作效率。目前,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

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/840881.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

helloworld 可执行程序得到的过程

// -E 预处理 开发过程中可以确定某个宏 // -c 把预处理 编译 汇编 都做了,但是不链接 // -o 指定输出文件 // -I 指定头文件目录 // -L 指定链接库文件目录 // -l 指定链接哪一个库文件 #include <stdio.h> #include <stdlib.h> #include <string.h>int mai…

【postgresql初级使用】在表的多个频繁使用列上创建一个索引,多条件查询优化,多场景案例揭示索引失效

多列索引 ​专栏内容&#xff1a; postgresql使用入门基础手写数据库toadb并发编程 个人主页&#xff1a;我的主页 管理社区&#xff1a;开源数据库 座右铭&#xff1a;天行健&#xff0c;君子以自强不息&#xff1b;地势坤&#xff0c;君子以厚德载物. 文章目录 多列索引概述 …

【微积分】CH16 integrals and vector fields听课笔记

【托马斯微积分学习日记】13.1-线积分_哔哩哔哩_bilibili 概述 16.1line integrals of scalar functions [中英双语]可视化多元微积分 - 线积分介绍_哔哩哔哩_bilibili 16.2vector fields and line integrals&#xff1a; work circulation and flux 向量场差不多也是描述某种…

gpt-4o继续迭代考场安排程序 一键生成考场清单

接上两篇gpt-4o考场安排-CSDN博客&#xff0c;考场分层次安排&#xff0c;最终exe版-CSDN博客 当然你也可以只看这一篇。 今天又添加了以下功能&#xff0c;程序见后。 1、自动分页&#xff0c;每个考场打印一页 2、添加了打印试场单页眉 3、添加了页脚 第X页&#xff0c;…

Leetcode刷题笔记1:数组基础1

导语 leetcode刷题笔记记录&#xff0c;本篇博客记录数组基础1部分的题目&#xff0c;主要题目包括&#xff1a; Leetcode 704 二分查找Leetcode 27 移除元素 知识点 二分查找 原理 二分查找的适用对象为有序数组且数组中无重复元素&#xff0c;其主要原理是每次都从有序…

2024年5月软考架构题目回忆分享

十年架构两茫茫 &#xff0c;Redis , UML 夜来幽梦忽还乡 &#xff0c; 大数据&#xff0c; Lambda 选择题 1.需求分析和架构设计面临这两个不同对象&#xff0c;一个是问题空间&#xff0c;一个是解空间 这是英文题&#xff0c;总共五个题目&#xff0c;只记得这么多 2. …

AI视频教程下载:全面掌握ChatGPT和LangChain开发AI应用(附源代码)

这是一门深入的课程&#xff0c;涉及ChatGPT、LangChain和Python。打造专注于现实世界AI集成的AI应用&#xff0c;课件附有每一节涉及到的源代码。 **你将学到什么&#xff1a;** - 将ChatGPT集成到LangChain的生产风格应用中 - 使用LangChain组件构建复杂的文本生成管道 - …

order by 优化

1. 排序方式 MySQL支持两种方式的排序&#xff0c;FileSort和Index&#xff1a; Index的效率高&#xff0c;它指MySQL根据索引本身完成排序。FileSort方式效率较低&#xff0c;是指MySQL自己扫描数据之后进行排序&#xff0c;没有使用到index 因此&#xff0c;我们要让order…

推荐五个线上兼职,在家也能轻松日入百元,适合上班族和全职宝妈

在这个瞬息万变的时代&#xff0c;你是否也曾考虑过在繁忙的工作之外&#xff0c;寻找一份兼职副业来补贴家用&#xff0c;同时保持生活的多样性&#xff1f;别急&#xff0c;现在就让我为你揭秘五个可靠的日结线上兼职岗位&#xff0c;助你轻松迈向财务自由之路&#xff01; 一…

云WAF与传统WAF:网络安全的双重防线

在网络安全领域&#xff0c;Web应用防火墙&#xff08;WAF&#xff09;是守护企业网络安全的重要盾牌。随着云计算技术的迅猛发展&#xff0c;云WAF作为一种新型的安全服务模式&#xff0c;正逐渐成为企业网络安全防护的新宠。本文将深入探讨云WAF与传统WAF的区别&#xff0c;分…

[‘column‘]和[:,‘column‘]的区别

之前&#xff0c;关于numpy和pandas的操作一直不熟悉&#xff0c;对于获取数据中的行&#xff0c;列一直混淆。 df[column] df[column]是 Pandas DataFrame 切片的常用语法&#xff0c;用于选择名为 column 的单个列。它返回一个 Pandas Series 对象。 df.loc[:,column] df[:,…

PSQL一些查询命令

只看10条数据 select * from dongchazhedata2 limit 10;以某一字段排序 select * from dongchazhedata2 order by date;查询大于某一日期的数据&#xff1b; select * from dongchazhedata where date > 2024-05-19;启动数据库命令 sudo service postgresql start;查看…

使用 Flask 和 Celery 构建异步任务处理应用

文章目录 什么是 Flask&#xff1f;什么是 Celery&#xff1f;如何在 Flask 中使用 Celery&#xff1f;步骤 1&#xff1a;安装 Flask 和 Celery步骤 2&#xff1a;创建 Flask 应用程序步骤 3&#xff1a;运行 Celery Worker步骤 4&#xff1a;启动 Flask 应用程序 结论 在构建…

高校网站群及融媒体中心建设方案

一、项目背景 随着信息技术的飞速发展&#xff0c;互联网已成为高校展示形象、传播信息、服务师生、沟通社会的重要渠道。然而&#xff0c;目前许多高校在网站建设和媒体传播方面存在以下问题&#xff1a; 网站分散、缺乏统一规划&#xff1a;各高校内部往往存在多个部门或学院…

家政项目day3 区域服务模块开发

目录 1 复习下业务流程2 接口设计2.1 查询区域服务2.1.1 接口梳理2.1.2 接口设计2.1.3 接口定义 1 复习下业务流程 区域服务管理是为运营地区设置要运营的服务项&#xff0c;不同地区所运营的服务项可能不同&#xff0c;比如&#xff1a;本平台在北京运营了老人陪护服务&#…

先进制造aps专题七 基于ai大模型的生产调度aps系统

"如果我们能够深度定制并开发出适合这些行业的大模型应用&#xff0c;将会带来巨大的变革。比如在医疗行业&#xff0c;大模型在医学图像分析、疾病预测和智能诊断方面有着广阔的应用前景。通过利用大模型技术&#xff0c;医生可以获得更准确的诊断辅助工具&#xff0c;从…

查数据库表以及视图sql

目录 oracle 数据表 视图 mysql 数据表 视图 hive 表 视图 pg 表 视图 oracle 数据表 SELECT a.owner AS owner,a.TABLE_NAME AS bywm,a.comments AS bzwm FROM all_tab_comments a where a.OWNER NOT IN (SYS, SYSTEM, CTXSYS, XDB, EXFSYS, MDSYS, OL…

零拷贝(Zero-Copy)

1.背景 现在有这样一个场景&#xff0c;我们需要在本地选择一个文件后&#xff0c;然后上传到网络上。 我们再看看文件的内容数据的具体搬运过程&#xff1a; 你会发现&#xff0c;在整个文件搬运的过程中&#xff0c;发生了多次的数据拷贝和上下文转换。 4次数据拷贝&#…

每日一题(5)——StringBuffer操作

编写程序&#xff0c;对StringBuffer对象进行追加&#xff0c;插入和修改缓冲区长度等操作&#xff1b; class StringDemo{public static void main(String[] args){boolean btrue;int i321;long l123456;String s1new String("Hello,world!");StringBuffer s2new S…