Range.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 plage ou la sélection actuelle.

Selection.FitTextWidth = CentimetersToPoints(5)