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