Sub TrackChangeDisplaySwitch()
' Paul Beverley - Version 05.08.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
rng.Select
ActiveDocument.ActiveWindow.LargeScroll Up:=1
rng.Select
ActiveDocument.ActiveWindow.SmallScroll Up:=1
End Sub