Selection.Tables(1).Select Selection.Orientation = wdTextOrientationUpward
wdTextOrientationHorizontal = $00000000; wdTextOrientationUpward = $00000002; wdTextOrientationDownward = $00000003;