Microsoft Office Forums - View Single Post - Assigning shortcut to Original mode in Tracking group

gmayor · 05-26-2019, 07:12 AM

OK, I see what you mean - maybe the following will work for you https://www.gmayor.com/installing_macro.htm

Code:

Sub ToggleRevisions()
    With ActiveWindow.View.RevisionsFilter
        If .Markup = 0 Then
            .Markup = wdRevisionsMarkupAll
            .View = wdRevisionsViewFinal
        Else
            .Markup = wdRevisionsMarkupNone
            .View = wdRevisionsViewOriginal
        End If
    End With
End Sub