With ActiveWindow.View
If .RevisionsMode = wpsInLineRevisions Then
.RevisionsMode = wpsBalloonRevisions
Else
.RevisionsMode = wpsInLineRevisions
End If
End With