Selection.FitTextWidth (Word)

Cette propriété renvoie ou définit la largeur (dans les unités de mesure en cours) dans laquelle Microsoft Word ajuste le texte dans la sélection actuelle.

Selection.FitTextWidth = CentimetersToPoints(5)