Selection.FitTextWidth (Word)

Devuelve o establece el ancho (en las unidades de medida actuales) al que Microsoft Word ajusta el texto de la selección actual.

Selection.FitTextWidth = CentimetersToPoints(5)