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

With ActiveWindow.View
    .RevisionsBalloonWidthType = wpsBalloonWidthPercent
    .RevisionsBalloonWidth = 25
End With