Sub TrackChangeDisplaySwitch()
' Paul Beverley - Version 26.01.21
' Switches track change displays: Simple <=> AllMarkup

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