Wordの表について

質問

Word の表内の文字位置について
添付の青印の表セルは、最初から1行しか入らないようになっていますが、赤印の表のセルは、２行入るようになっています。
この赤印のセルも、最初から1行しか入らないように、上下位置がセンターになるようにしたいのです。
よろしくお願いします。

回答No.2

imogasi

小生は、Word　VBAに関心があり、勉強しているので、下記を参考に。
結論は、「難しい」と言いたい。マイクロソフトがその気になればできるとは思う。
本件はWordの表（エクセルの、表ではない）の
・ワードの表のセルの文字列の配置は、操作による、設定の、決まった方法があり出来ると思います。
・＞２行になってしまいます、を防ぐには、他人が使う前提だと（自分なら自制すれば仕舞）、規定文字数を超えて、または、改行されたという事態を捉える「イベント」という仕組みを使わないとならないと思うが、ワードには、素人向けにはない。（なおエクセルは「入力規則」の仕組で入力文字数の制限ができると思うが。）又は入力の刻々文字数を捉えてチェックさせてくれる仕組み（VBA）があればよいが、なさそうだ。
プロで、この件の経験者でないと難しい、と思う。プロは入力受付にワードは使わないだろう。
ーー
下記は、
イベントでない、セルの文字数を捉えるコード。エクセルならB1に当たるセルに付いてです。
B1セルに文字を入力して下記実行。標準モジュールにコピペ。
Sub test02()
Set ex = CreateObject("excel.application")　’エクセル関数Cleanを使う為に必要
MsgBox ActiveDocument.Tables(1).Cell(1, 2).Range.Text '表のB1セルについて
ActiveDocument.Tables(1).Cell(1, 2).Select
MsgBox ex.Application.worksheetfunction.clean(Selection.Text)　’改行除く
MsgBox Len(ex.Application.worksheetfunction.clean(Selection.Text))　’改行除きの文字数
MsgBox Selection.Range.ComputeStatistics(wdStatisticCharacters)
End Sub
ワードの表の各セルには最後に改行が入っていると考えられるから、除いたわけ。

回答No.1

aokii

最初から1行しか入らないようにすることはできません。
また、上下位置がセンターになるようにするには、表を選んで、表ツールのレイアウトのタブから、両端揃え(中央)を選んでみてください。

お礼

ありがとうございました。表ツールで解決できました。