在Word2010中，如何利用VBA获取文档的修订和批注内容？获取到相应的内容之后如何通过单击跳转到修改处？

2025-04-13 01:20:45

推荐回答（1个）

回答1：

遍历修订示例：

    Dim rs As Revision
    For Each rs In ActiveDocument.Revisions
        MsgBox rs.Range.Text
    Next

遍历批注内容示例：

  Dim cm As Comment
    For Each cm In ActiveDocument.Comments
        MsgBox cm.Range.Text
    Next

转到第 2 个批注示例：

   Selection.GoTo What:=wdGoToComment, Which:=wdGoToAbsolute, Count:=3

遍历转到每个修订内容：

    Dim rs As Revision
    For Each rs In ActiveDocument.Revisions
        rs.Range.Select
    Next