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

在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文档中所做的所有修改类型，通过该属性可以对修订记录进行进一步的筛选。