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

Set rng = Selection.Range.Duplicate
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