ワードで縦書きの表を作成する

質問

横書きの表を作成しました

　１　　　２　　　３
あああ　いいい　ううう
かかか　ききき　くくく

これを縦書きに変更したいです
か　あ
か　あ　１
か　あ

き　い
き　い　２
き　い

く　う
く　う　３
く　う

・Ａ４
・表の中で縦書き
・表の中で上から下に文字が進んでいく
・表の中で右から左に文字が進んでいく
・表の中で文字をどんどん入力していくと、表がだんだん左に広がっていく
・一番左まで行って次のページに進むときは、次のページの右からスタートする

このような表は作成できますでしょうか。
ご存知の方がいましたら教えてください。
よろしくお願いします。

回答No.3

ts0472

ごめんなさい

2010Wordで試してみましたが　改行しないと自動的に増えないですね
高さ以上の文字は右に隠れてしまい　文字数に合わせて調整も効かなくなる

Excelの　折り返して全体を表示する　と同じ機能があったように記憶しているのですが　見つけられずでした

縦書きや横書きでセル内に入りきらない状態で　文字方向を変えると文字数に適したセルの大きさに変更されるものの　文字方向を戻すと記憶したサイズに戻ってしまう

何らかの機能は持っているがコマンドがメニュー項目が装備されていない？　マクロを使うか　横書きで入力しておいて縦書きに変更するか　簡単にはできなそうに感じます

EXCELなら？と思いましたが　こちらも面倒そう
https://forest.watch.impress.co.jp/docs/serial/exceltips/1152601.html

回答No.2

imogasi

小生がやってみました。ワード２０１３．
（１）質問文をワード文書にコピペ
　　　スペース区切りの文字列を表にする。＜－－質問者の場合には不要だろう
（２）表のセルの文字列を縦書きにする。
https://hayakute.kantan-sakusaku.com/word/2019/0630175807/
などを参考に操作。
左から右への内容構成のままだが、文字列は縦書きにできる。
（３）縦書き文書を右から左へ表示しないといけない。
https://hamachan.info/win8/word/migi.html
日本語もアラビア語扱いか？
しかし表の列構成の内容は、左列ー＞右列のまま。
これを反転するワードの操作はないと思う。
（もしこの点で回答が出れば、すみません。）
（１）元の表で縦書きの文字にするのは操作（表で右クリックのメニューの中に）がある。
　その後、中身の一部を「縦中横」の操作が必要かもしれないが略。
ーーー
（２）同じ行数と列数の（内容空白の）表を作っておく。
（３）ワード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
この文書には、当初１つしか表がないとした例（多数あれば、テーブルを指定するインデックス値が変わる）
ActiveDocument.Tables(1)の(1)やその後の(2)に影響する。
実行する。
簡単な例のテストでは、不都合は出なかったが。
表と中身データについて、複雑なケースが考えられるので、十全とは言えないかも。
＝＝＝
新しく表（縦書き表）を作って、新たにデータを入力するなら、この面倒はないが。
すでにあるデータを生かすためにがむつかしい。

お礼

ありがとうございます。
つまりマクロを使用しないと、できないということでしょうか。
そのままマクロをコピーしたのですが、エラーになってしまいました。
ありがとうざいました。

回答No.1

ts0472

未使用ソフト　バージョン不明ですが

縦書き
https://www.relief.jp/docs/000424.html

セルの自動調整
http://office-qa.com/Word/wd451.htm

最後の次のページへ進む　は理解できませんでした　表とページに関係性は無い　表の作り方で変わる　改行の入れる場所しだい？
全体を縦書きにしておけば右上が始点になります

昔々の古いバージョンの記憶では出来たと思います

お礼

ありがとうございます。
まず縦書きにするのではなく、表の追加からスタートですよね。
なぜなら、縦書きに設定してから、表を追加しても、表の中では、横書きのままなので。
そして、表の中で縦書きにし、文字を入力していっても、文字が増えていっても左側の枠が固定されており、広がっていきません。
もちろん、「自動的にセルのサイズを変更する」にはチェックしています。