View Single Post
 
Old 07-15-2021, 02:28 AM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 2,724
Guessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to behold
Default

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
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote