Range.FitTextWidth (Word)

Retorna ou define a largura em unidades de medida atual em que o Microsoft Word ajusta o texto na seleção atual ou no intervalo. Leitura/gravação única.

Selection.FitTextWidth = CentimetersToPoints(5)