本示例在左右边距之间切换修订气球。

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