HorizontalInVertical Property Example
This example formats the current selection as horizontal text within a run of vertical text, fitting the text to the width of the line of vertical text.
Selection.Range.HorizontalInVertical = _
wdHorizontalInVerticalFitInLine