Sub ToggleMarkupDisplay()
'Switches between simple markup and all markup

Dim CurrentView As Integer

CurrentView = ActiveWindow.View.RevisionsFilter.Markup

If CurrentView <> 2 Then
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupAll
        .View = wdRevisionsViewFinal
    End With
End If

If CurrentView = 2 Then
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupSimple
        .View = wdRevisionsViewFinal
    End With
End If

ActiveWindow.ScrollIntoView Selection.Range, True

End Sub