Selection.FitTextWidth (Word)

Legt die Breite (in der aktuellen Maßeinheit) fest, in der Microsoft Word den Text in der aktuellen Markierung einpasst.

Selection.FitTextWidth = CentimetersToPoints(5)