Range.CharacterWidth (Word)

Returns or sets the character width of the specified range. Possible return values are wdWidthFullWidth - Characters are displayed in full character width, wdWidthHalfWidth - Characters are displayed in half the character width.

Selection.Range.CharacterWidth = wdWidthHalfWidth