Word修订内容批量标红

news/2024/3/28 18:57:12/文章来源:https://www.cnblogs.com/geoli91/p/16618266.html

最近改文章,期刊要求提供所有修改内容都标红的修订稿,本着能不手改就不手改的原则,我尝试检索了一下自动修改的方法,最先找到的是简书上的一篇使用VB宏命令批量修改的文章 (Word-接受全部修订为标红字体),但是尝试之后发现运行时间很长,且有些修订不会生效,然后就开始了我的漫长研究之路。

研究过程

因为最熟悉Python,首先想到的是Python操作Word文档,主要尝试了一下三个模块,但是最后都失败了。

python-docx模块

该模块是目前Python操作Word文档最主流的模块,然而查阅资料后发现该模块目前尚不支持操作修订,只能尝试通过xml获取修订文本,通过Find选择对应本文并修改颜色。由于太过复杂,放弃。

aspose-words模块

Google到了该模块操作Word修订的sample,尝试使用后该模块确实能够实现该功能。奈何这是一个付费模块,保存的文档有水印,且只能保存9页。去水印和全文档保存则需要付费或30天试用,无奈放弃。

20220823230332

win32com模块

该方式也就是通过.Net提供的com文件,直接调用Word原生的API处理文档。参考多方资料后,能勉强实现修订标红功能,代码如下:

# 引入模块
import win32com.client as win32
import win32com
from tqdm import tqdm
# 设置参数
path_file_input = r"input.doc"
path_file_output = r"output.doc"# 创建word应用并打开文档
word=win32com.client.DispatchEx("Word.Application")
word=win32.gencache.EnsureDispatch("Word.Application")
word.Visible = False
word.DisplayAlerts = False
doc = word.Documents.Open(path_file_input)
# 激活文档并关闭修订功能
doc.Activate()
word.ActiveDocument.TrackRevisions = False
num_true=0 # 用于计算成功修改的修订数目
try:# 迭代所有的修订for i in tqdm(range(word.ActiveDocument.Revisions.Count)): # word.ActiveDocument.Revisions.Count 获取修订的数量# 尝试修改当前修订try:# 获取当前修订revision=word.ActiveDocument.Revisions.Item(i)# 设置修订字体颜色revision.Range.Font.Color=255# 接受修订revision.Accept()num_true+=1# 捕获异常。该模块在使用 word.ActiveDocument.Revisions.Item(i) 获取某一修订时,如果这一修订时删除的修订,就会抛出 集合所要求的成员不存在 错误,因此需要进行异常捕获except Exception as e:pass# 另存修改后的文档doc.SaveAs(path_file_output)
except Exception as e:print(e)
# 保证文档和应用句柄释放
finally:# # 关闭 word 文档doc.Close() # # 关闭 officeword.Quit() del doc,word# 打印成功处理的修订数量print('num_true',num_true)

然而,实践发现,以上代码在处理到有图篇插入和分节符插入等相关的修订时,后面的所有修订都不会再处理。如果要使用该代码,需要首先在文档中手动将这些部分接受修订,使得该代码实用性不高,放弃……

最终成果

尝试了一圈Python效果都不好,最后幡然醒悟,微软的文档还是得用微软自己的东西,再次把VBA捡起来。参考VBA帮助文档中对修订的操作,最后成品代码如下:

Sub Set_Revisions_Red()
'关闭修订模式
ActiveDocument.TrackRevisions = Flase'迭代每一个修订,改为红色并接受修订
For n = 1 To ActiveDocument.Revisions.Count'移动至下一个修订Selection.NextRevision (True)'设置修订内容字体颜色为红色Selection.Font.Color = wdColorRed'接受当前修订Selection.Range.Revisions.AcceptAllNext n
End Sub

该代码能够实现包括doc和docx在内的Word文档修改内容标红并接受修订功能。使用方式为:

  1. 打开Word文档
  2. Alt+F11打开VBA界面。
  3. 在左侧窗格中选中Normal后,点击菜单栏-插入-模块,在弹出的窗口中粘贴上述代码。
    20220823232202
  4. F5运行代码。
  5. 稍等片刻,等待程序运行完成即可。本人在 Word 2019上测试无任何问题,包括文本修改、图片插入、表格插入、域代码更新等均能识别,果然不愧是微软亲儿子……

至此,打完收工。


本文参考

  1. Word-接受全部修订为标红字体
  2. How to extract text inserted with track-changes in python-docx
  3. Track Changes in a Document
  4. Python 使用 win32com 模块对 word 文件进行操作
  5. Python - Using win32com.client to accept all changes in Word Documents
  6. How can I output Word documents/plaintext with all accepted/rejected track changes?
  7. Selecting and deleting a Line Present in a Word Document Using Python / Win32
  8. Revisions object (Word)

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

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

相关文章

《GB27607-2011》PDF下载

《GB27607-2011 机械压力机 安全技术要求》PDF下载 《GB27607-2011》简介本标准规定了机械压力机类产品的设计、制造、改造、使用的术语和定义、严重危险、安全要求和(或)措施、检验和使用信息; 本标准适用于压力机及作为压力机组成部分的辅助设备的设计、制造、改造和使用,也…

二进制位运算

二进制位运算基础及其应用: 一、基本位运算符: 1.& 按位与:(从左到右)二进制中对应位都是1则为1,否则为0; 2. | 按位或:(从左到右)二进制中对应位有一个是1则为1,否则为0; 3. ^按位异或:(从左到右)二进制中对应位相同则为0,不同为1; 4. <<左移:右侧…

《GB27887-2011》PDF下载

《GB27887-2011 机动车儿童乘员用约束系统》PDF下载 《GB27887-2011》简介 本标准规定了机动车儿童乘员用约束系统术语、定义,在车辆上的安装及固定要求,约束系统的结构,以及对约束系统总成及其组成部件的性能要求和试验方法;本标准适用于适合安装在三个车轮或三个车轮以上…

JS基础:数组、函数、对象

字符串要用英文双引号括起来。字符串与其他类型数据之间用加号+连接起来 // -------------------------------------------------------- JS中定义声明变量是用关键字var,JS中变量名函数名都可以用中文。 JS中定义数组不用写函数长度[],JS中可以定义字符串数组向数组添加新元…

《GB12523-2011》PDF下载

《GB12523-2011 建筑施工场界环境噪声排放标准》PDF下载 《GB12523-2011》简介本标准规定了建筑施工场界环境噪声排放限值及测定方法; 本标准适用于周围有噪声敏感建筑物的建筑施工噪声排放的管理、评价及控制。市政、通信、交通、水利等其他类型的施工噪声排放可参照本标准执…

CATIA——什么是汽车设计硬点和骨架?

什么是汽车设计「硬点」? 汽车设计硬点(Hard point)的概念: 所谓硬点,是通过英文的"hardpoint"直译过来的。 由于零部件设计要在整车总布置基本完成后才开始,在总布置设计阶段中往往没有零部件的详细资料,还不能解决零部件和总成内部的细节问题。所以在布置设…

方法引用-通过this引用成员方法和类的构造器引用

通过this引用成员方法 this代表当前对象 如果需要引用的方法就是当前类中的成员方法 那么可以使用this::成员方法 的格式来使用方法引用函数式接口:public interface Richanle {void buy(); }测试类:public class Husband {//重写父类的成员方法public void buyHouse() {Sys…

Bundle-less 的思考和实践分享

作者:杨兴元随着 Snowpack、Vite 等利用提倡 no-bundle 的构建工具逐渐兴起,同时现代浏览器对原生 ESM 的普遍支持,Bundle-less 的概念席卷前端圈,那么我们如何理解 Bundle-less?究竟是炒概念还是能够真正地给业界带来收益?下面就来分享一下我对于 Bundle-less 的理解以及…

GitCode+Picgo图床

GitCode图床,使用Gitlab的插件,图片加载速度快GitCode图床 GitCode实际上是使用Gitlab服务搭建的一个代码托管平台,因此我们可以使用【Gitlab】图床插件来将图片上传到Gitcode。而从npm官网上正好可以找到这样的插件:注意:推荐使用第一个插件 picgo-plugin-gitlab-files,…

多功能杆盒子 5G智慧杆网关盒子 控制网关

计讯物联TG473多功能杆专用网关,针对智慧灯杆设计,丰富接口满足多功能杆灯控、摄像头、信息屏、充电桩、传感器等接入联网,支持网口、串口数据、模拟量、信号量采集,支持物联网卡5G/4G蜂窝网络,支持以太网、wifi等多数据传输,丰富协议库强大协议转换能力对接云平台实现多…

delphi 调用编写Word、Execl

使用VBA接口实现。 VBA官方接口: Office Visual Basic for Applications (VBA) 参考 | Microsoft Docs常用办公三件套的接口和其他的软件接口齐全。 打开Word : usesComObj///声明,所有VBA相关的对象都使用Variant实现 wApp,eApp,wordRange:Variant;///实现 trywApp:=GetActi…

AtCoder Beginner Contest 265 D Iroha and Haiku (New ABC Edition)

\(O{(n\log n)}\) 做法 我在考场上只想到此做法,不难想到,可以将三段用二分预处理。 \(xs[i]\)表示从\(a_i\)开始总和为\(P\)的末尾编号,可以用二分处理。 最后 \(O(n)\) 判断即可。 #include <bits/stdc++.h> #define ll long long using namespace std; const ll N=…

延时任务-基于redis zset的完整实现

所谓的延时任务给大家举个例子:你买了一张火车票,必须在30分钟之内付款,否则该订单被自动取消。订单30分钟不付款自动取消,这个任务就是一个延时任务。 我之前已经写过2篇关于延时任务的文章:《完整实现-通过DelayQueue实现延时任务》 《延时任务(二)-基于netty时间轮算…

workbench小技巧——结合paraview

workbench计算完结果后,可以在计算完成的Temperature(或者其他的结果也可以)右键->Export...->STL File将其保存成文.stl格式的文件,并且如果在workbench中是半剖视图,那么生成的.stl格式的文件也是半剖视图。 半剖视图的.stl格式的文件可以在paraview中打开: 这样…

创建一个VUE项目

前期准备 1、安装node,官网安装(自带npm) 2、安装npm国内镜像cnpm:npm install -g cnpm;安装后可能在项目中无法使用,执行cnpm install express -g 3、安装开源前端打包工具webpack:cnpm install webpack -g 4、安装vue-cli脚手架工具:cnpm install vue-cli -g;使用vu…

校园内的汽车

https://www.acwing.com/problem/content/description/1587/思路: 电话记录的模型,先筛选出所有符合要求的记录,之后按照题目要求做即可。 #include <iostream> #include <cstring> #include <algorithm> #include <unordered_map> #include <ve…

如何让discuz论坛下方在线会员不显示在线会员

如何让discuz论坛下方在线会员不显示在线会员-百度经验 https://jingyan.baidu.com/article/4b07be3c6b143848b380f382.html如何让discuz论坛下方在线会员不显示在线会员呢? 后台界面设置,论坛缩略显示在线列表选择是(一般超过500在线会员会自动隐藏的)如下图所示:

Discuz!抱歉,您的IP 地址不在允许范围内办法

Discuz!抱歉,您的IP 地址不在允许范围内办法-百度经验 https://jingyan.baidu.com/article/ce436649394f183773afd305.html今天早上很郁闷呀,打开论坛发现竟然登陆不了,提示以下的问题: Discuz!x3.2 抱歉,您的 IP 地址不在允许范围内,或您的账号被禁用... 这是什么鬼,明…

TCP/UDP

一、定义和对比 TCP/UDP都是是传输层协议,但是两者具有不同的特性,同时也具有不同的应用场景,下面以图表的形式对比分析。 二、使用场景什么时候应该使用TCP?当对网络通讯质量有要求的时候,比如:整个数据要准确无误的传递给对方,这往往用于一些要求可靠的应用,比如HTTP…

项目准备

项目导入 资料连接:https://pan.baidu.com/s/1Xp97dflG_i1a8DyTKJWAjg   提取码:java 选择项目的pom.xml文件导入 项目启动 第一种方式:第二种方式: 启动Maven: 技术选型Web层Servlet:前端控制器html:视图Filter:过滤器BeanUtils:数据封装Jackson:json序列化工具 S…