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