Verfolgte Änderungen in Text in MS Word mit Move-Formatierung konvertieren

Question

Ich versuche, überarbeitete Änderungen in formatierten Text zu konvertieren. Ich habe das grandiose Makro von @CindyMeister, das gut funktioniert, aber es behandelt keine Änderungen (grünes doppeltes Durchstreichen für verschobenes und grünes doppeltes Unterstreichen für verschobenes). Ich fügte Linien hinzu, zu denen ich mich bewegte und von denen ich wegging, aber ich konnte nicht herausfinden, wie ich die grüne Textfarbe behalten sollte. Weiß jemand, wie ich das Makro aktualisieren kann, um das zu beheben?

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 

Answer 1

Sie können die grüne Textfarbe halten mit dem folgenden Code:

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