Ms word 使用移动格式将跟踪的更改转换为MS Word中的文本

我正在尝试将跟踪的更改转换为格式化文本。我在@Cindymister下面有一个很棒的宏，它工作得很好，但它不能处理移动更改（绿色双删除线表示“移动自”，绿色双下划线表示“移动至”）。我为“移动到”和“移动自”添加了行，但似乎不知道如何保持绿色文本的颜色。有人知道如何更新宏来解决这个问题吗

Sub FormatRevisions()
    Dim doc As Word.Document
    Dim rev As Word.Revision

    Set doc = ActiveDocument
    doc.TrackRevisions = False
    For Each rev In doc.Revisions
        Select Case rev.Type
            Case wdRevisionMovedFrom
                rev.Range.Font.DoubleStrikeThrough = True
                rev.Reject
            Case wdRevisionMovedTo
                rev.Range.Underline = wdUnderlineDouble
                rev.Accept
            Case wdRevisionDelete
                rev.Range.Font.StrikeThrough = True
                rev.Reject
            Case wdRevisionInsert
                rev.Range.Underline = wdUnderlineSingle
                rev.Accept
            Case wdRevisionFormat
                 MsgBox "revision format"
                rev.Accept
            Case wdRevisionStyle
                 MsgBox "revision style"
                rev.Accept
            Case wdRevisionStyleDefinition
                 MsgBox "revision style def"
                rev.Accept
            Case wdRevisionSectionProperty
                 MsgBox "revision section prop"
                rev.Accept
            Case wdRevisionReplace
                 MsgBox "revision replace"
                rev.Accept
            Case wdRevisionTableProperty
                 MsgBox "revision table property"
                rev.Accept
            Case wdRevisionReconcile
                 MsgBox "revision reconcile"
                rev.Accept
            Case wdRevisionProperty
                 MsgBox "revision property"
                rev.Accept
            Case wdRevisionParagraphProperty
                 MsgBox "revision para property"
                rev.Accept
            Case wdRevisionParagraphNumber
                 MsgBox "revision para number"
                rev.Accept
            Case wdRevisionDisplayField
                 MsgBox "revision display field"
                rev.Accept
            Case wdRevisionConflict
                MsgBox "revision conflict"
                rev.Accept
            Case wdNoRevision
                MsgBox "no revision"
                rev.Accept
            Case Else
                MsgBox "unknown type"
                doc.Comments.Add rev.Range, "unknown type"
        End Select
    Next
End Sub

---

可以使用以下代码保持绿色文本颜色：

rev.Range.Font.TextColor = Rgb(44, 98, 52)

---

如果你是一名审判律师，你应该能够雇佣一个人为你做出改变。：-）为什么你会觉得你的时间太宝贵，让你要求我们免费为你做这件事？肯，谢谢你的领导。对不起，打扰你了。如果你需要10分钟的知识产权诉讼建议，但你自己却做不到，请随时来找我。