本示例将修订气球的宽度设为 1 英寸并在左边距显示修订气球。
运行该示例前,假定活动窗口中的文档包含多个审阅者所作的修订,并且修订显示于气球中。

With ActiveWindow.View
    .RevisionsBalloonWidthType = wpsBalloonWidthPoints
    .RevisionsBalloonWidth = InchesToPoints(1)
    .RevisionsBalloonSide = wpsLeftMargin
End With