VBA Word 修订 信息提取

ztj277702035

用VBA提取word文档中的修订信息时，只返回了作者、时间、内容等，但是我需要知道操作的类型“删除”或“插入”却没有。请问如何获取？为什么可以看到类似“YC 2023-08-10 插入的内容：三个”，却不能提取出来？先谢谢。

DEHAIJUN

没有文件，没办法答，给你一个例子参考
Sub test()
    Dim doc As Document
    Dim rev As Revision
    Dim range As range
    Dim revisionType As String
    Set doc = Documents.Open("C:\路径\文件名.docx")
    For Each rev In doc.Revisions
        Set range = rev.range
        If rev.Type = wdRevisionDelete Then
            revisionType = "删除"
        ElseIf rev.Type = wdRevisionInsert Then
            revisionType = "插入"
        Else
            revisionType = "其他"
        End If
        Debug.Print revisionType & "：" & range.Text
    Next rev
    doc.Close
End Sub

ztj277702035

DEHAIJUN 发表于 2023-8-20 18:16
没有文件，没办法答，给你一个例子参考
Sub test()
    Dim doc As Document

非常谢谢！在您帮助下，问题解决了

ztj277702035

ztj277702035 发表于 2023-8-20 19:57
非常谢谢！在您帮助下，问题解决了

您帮助了我，我还是把我的用途简略告知：我的女儿（律师）给顾问单位审核合同，对合同有修订货批注，完成后要把合同与反馈表返回顾问单位。数量大、文档长，人工完成效率低，我就以我蹩脚的VBA知识做一个工具来帮助她一下，实现半自动化。原本只有批注，已经能处理。近期出现了修订，就出现了1楼提出的问题。再次谢谢！
写此，也希望对有类似需求的人有启示。

ztj277702035

继续求助
问题：提取光标所在的句子。比如光标位于“推进严格规范公正文明执法，推动政府职能转变”这句话的“严格”与“规范”之间，希望提取到“推进严格规范公正文明执法”这句话(也就是前后两个逗号或句号之间的部分)。