本示例在边距中显示气球中的修订和在文本内部显示气球中的修订之间切换。
运行该示例前,假定活动窗口中的文档包含多个审阅者所作的修订,并且修订显示于气球中。

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