Range.FitTextWidth (Word)

Returns or sets the width (in the current measurement units) in which Microsoft Word fits the text in the current selection or range.

Selection.FitTextWidth = CentimetersToPoints(5)