With ActiveWindow.View
If .RevisionsMode = wpsBalloonRevisions Then
If .RevisionsView = wpsRevisionsViewFinal Then
.RevisionsView = wpsRevisionsViewOriginal
Else
.RevisionsView = wpsRevisionsViewFinal
End If
End If
End With