Sub RevisionsHighlight()
' Paul Beverley - Version 19.02.20
' Highlights all the edits in a text

myRange = 3
' = how many characters either side of the edit to highlight

myHighlight = wdBrightGreen

myTrack = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = False
For Each rv In ActiveDocument.Revisions
  Set rng = rv.range
  rng.Start = rng.Start - myRange
  rng.End = rng.End + myRange
  rng.HighlightColorIndex = myHighlight
Next rv
ActiveDocument.TrackRevisions = myTrack
rng.Select
Beep
End Sub