Microsoft Office Forums - View Single Post - Accepting/rejecting language formatting in Track Changes

Guessed · 07-15-2021, 02:28 AM

Yes, it is possible. Something along the lines of

Code:

Sub SelectiveAmnesia()
  Dim aRev As Revision
  For Each aRev In ActiveDocument.Revisions
    Debug.Print aRev.FormatDescription
    If aRev.FormatDescription = "Formatted: English (United Kingdom)" Then
      aRev.Accept
    End If
  Next aRev
End Sub