Sub TrackChangeDisplaySelect()
' Paul Beverley - Version 11.12.19
' Cycles through track change display levels
' N.B. Only works on Word 2016 and later

stateNow = ActiveWindow.View.RevisionsFilter.Markup
Select Case stateNow
  Case wdRevisionsMarkupSimple: stateNext = wdRevisionsMarkupAll
  Case wdRevisionsMarkupAll: stateNext = wdRevisionsMarkupNone
  Case wdRevisionsMarkupNone: stateNext = wdRevisionsMarkupSimple
End Select
With ActiveWindow.View.RevisionsFilter
  .Markup = stateNext
  .View = wdRevisionsViewFinal
End With
End Sub