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