Range.CharacterWidth (Word)

Devuelve o establece el ancho de carácter del intervalo especificado. Posibles valores de retorno son wdWidthFullWidth - Los caracteres se muestran con el ancho de caracteres de dos bytes, wdWidthHalfWidth - Los caracteres se muestran con el ancho de caracteres de un byte.

Selection.Range.CharacterWidth = wdWidthHalfWidth