如何用vba遍历word文档的修订？

2024-04-12 22:14| 来源: 网络整理| 查看: 265

如何用vba遍历word文档的修订？ 2019年6月7日作者：水星Excel 3,877 次浏览暂无评论

在word文档中可以通过开启修订功能来追踪文档的修改记录。

在vba中可以通过Revision对象访问文档中每一处的修订。

比如如下的代码将遍历当前文档中的所有修改，并列出修改者的姓名等信息：

Sub QQ1722187970() Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oRevision As Revision Dim oRng As Range For Each oRevision In oDoc.Revisions With oRevision '返回修订者的名字 sAuthor = .Author '返回修改的日期 dDate = .Date '返回修订的类型 iType = .Type '返回修改的格式描述 sFD = .FormatDescription '返回包含了修订记录的Range对象 Set oRng = .Range Debug.Print sAuthor, sFD End With Next End Sub

其中Revision对象的Type属性显示了可以在word文档中所做的所有修改类型，通过该属性可以对修订记录进行进一步的筛选。

其它相关文章推荐：如何用vba在word文档的末尾或者开头插入内容？如何用vba在word文档中实现文本内容的修改、删除、添加等各种操作？如何用vba操作word的编号列表项？如何用vba逐字符遍历word文档？如何用vba将word文档按照手动分页符拆分？如何用vba查找替换word文档中的英文引号为空，而不包含中文引号？分类 : VBA , WORD VBA 标签 : FormatDescription , Revision , 修订 , 审阅者 , 批注

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

公司简介

联系我们