小生がやってみました。ワード2013.
(1)質問文をワード文書にコピペ
スペース区切りの文字列を表にする。<--質問者の場合には不要だろう
(2)表のセルの文字列を縦書きにする。
https://hayakute.kantan-sakusaku.com/word/2019/0630175807/
などを参考に操作。
左から右への内容構成のままだが、文字列は縦書きにできる。
(3)縦書き文書を右から左へ表示しないといけない。
https://hamachan.info/win8/word/migi.html
日本語もアラビア語扱いか?
しかし表の列構成の内容は、左列ー>右列のまま。
これを反転するワードの操作はないと思う。
(もしこの点で回答が出れば、すみません。)
(1)元の表で縦書きの文字にするのは操作(表で右クリックのメニューの中に)がある。
その後、中身の一部を「縦中横」の操作が必要かもしれないが略。
ーーー
(2)同じ行数と列数の(内容空白の)表を作っておく。
(3)ワードVBAで列的に(だけ)、反転させる。
ーー
標準モジュールに
Sub 列並び反転()
Dim r, c, rwc, clc
With ActiveDocument.Tables(1)
rwc = .Rows.Count
clc = .Columns.Count
'---
For r = 1 To rwc
For c = 1 To clc
'MsgBox .Cell(r, c)
ActiveDocument.Tables(2).Cell(r, clc - c + 1).Range = .Cell(r, c).Range.Text
Next c
Next r
End With
End Sub
この文書には、当初1つしか表がないとした例(多数あれば、テーブルを指定するインデックス値が変わる)
ActiveDocument.Tables(1)の(1)やその後の(2)に影響する。
実行する。
簡単な例のテストでは、不都合は出なかったが。
表と中身データについて、複雑なケースが考えられるので、十全とは言えないかも。
===
新しく表(縦書き表)を作って、新たにデータを入力するなら、この面倒はないが。
すでにあるデータを生かすためにがむつかしい。
お礼
ありがとうございます。 つまりマクロを使用しないと、できないということでしょうか。 そのままマクロをコピーしたのですが、エラーになってしまいました。 ありがとうざいました。