With ActiveWindow.View
If .RevisionsBalloonSide = wpsLeftMargin Then
.RevisionsBalloonSide = wpsRightMargin
Else
.RevisionsBalloonSide = wpsLeftMargin
End If
End With