Selection.FitTextWidth (Word)

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

Selection.FitTextWidth = CentimetersToPoints(5)