こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを眺めては「なんだか難しそうだな…」と途方に暮れていませんか？
大丈夫です。ここをクリアすれば、Word VBAの基本はバッチリですよ。
今回は、実務で最も頭を悩ませるポイントの一つである「表（Table）のレイアウト崩れ」を、VBAの力で美しく、そして完全に制圧する方法を伝授します。データ流し込みの自動化に挑む中級者なら絶対に避けて通れない、表の列幅最適化の極意を見ていきましょう。
—
なぜ、Wordの表はすぐにはみ出るのか？
プログラムからWordにデータを流し込むとき、こんな悲劇が起きたことはありませんか？
- 「長いテキストが入った途端、表が右側の余白を突き破って消えていった…」
- 「セルの中身が改行されすぎて、縦に間延びした無残なレイアウトになった…」
Excel VBAと違い、Wordの表は「ページの幅（テキストボックスや余白の幅）」という絶対的な境界線を持っています。ここに無計画にデータを流し込むと、Wordのデフォルトの気まぐれな自動調整が働き、レイアウトが盛大に崩壊します。
この悪夢を防ぐ鍵が、`AutoFitBehavior`メソッドです。
—
秘儀：AutoFitBehaviorでレイアウトを支配する
Word VBAには、表の幅を自動調整するための強力な命令が用意されています。それが `AutoFitBehavior` です。
このメソッドには、主に次の3つのモード（定数）があります。
1. `wdAutoFitFixed`（固定列幅）
- セルに入った文字量に関わらず、指定した幅を死守します。
2. `wdAutoFitContent`（内容に合わせる）
- 中のテキストの長さに合わせて、セルの幅が自動で広がります。
3. `wdAutoFitWindow`（ウィンドウ/ページ幅に合わせる） ★今回の主役
- ページ（余白から余白まで）の幅に表全体の幅を自動でピタッと合わせます。
私たちが目指す「ページからはみ出さない動的制御」には、この `wdAutoFitWindow` を使います。
—
実践！ ページ幅に自動追従するテーブル生成コード
それでは、実際に動かせる実用的なコードを見てみましょう。
このコードは、新規文書を作成し、3列の表を動的に挿入した上で、ページ幅に美しく収まるように最適化するサンプルです。
Sub CreateOptimizedTable()
Dim doc As Document
Dim tbl As Table
Dim targetRange As Range
‘ 1. 新規文書を作成し、操作対象のレンジを取得
Set doc = Documents.Add
Set targetRange = doc.Content
‘ 2. 3行3列の表を動的に生成する
‘ ※ ここではドキュメントの末尾に表を追加しています
Set tbl = doc.Tables.Add(Range:=targetRange, NumRows:=3, NumColumns:=3)
‘ 3. 【最重要】表のレイアウト挙動を「ウィンドウ（ページ）幅に合わせる」に設定
‘ これにより、余白からはみ出る事故を物理的に防ぎます
tbl.AutoFitBehavior wdAutoFitWindow
‘ 4. サンプルデータを流し込む（セルの特定と値の代入）
‘ 表が自動調整される様子がわかりやすいように文字を入れます
tbl.Cell(1, 1).Range.Text = “プロジェクト名”
tbl.Cell(1, 2).Range.Text = “担当者”
tbl.Cell(1, 3).Range.Text = “進捗状況”
tbl.Cell(2, 1).Range.Text = “基幹システムリプレイス案件の超大型データ移行テスト”
tbl.Cell(2, 2).Range.Text = “開発 一郎”
tbl.Cell(2, 3).Range.Text = “遅延気味（要リカバリ）”
tbl.Cell(3, 1).Range.Text = “社内ポータルサイト改修”
tbl.Cell(3, 2).Range.Text = “鈴木 花子”
tbl.Cell(3, 3).Range.Text = “順調”
‘ 5. 見た目を少しリッチにする（オプション）
tbl.Style = “グリッド (テーブル)”
‘ 完了メッセージ
MsgBox “ページ幅に最適化された表の生成が完了しました！”, vbInformation
End Sub
コードのここがポイント！
- `Set tbl = doc.Tables.Add(…)`
表を生成すると同時に `Table` オブジェクトとして変数に保持します。これにより、後続の操作が劇的にラクになります。
- `tbl.AutoFitBehavior wdAutoFitWindow`
この1行を実行するだけで、Wordは「この表の全幅は、現在のページの左右余白の幅に一致させなさい」という命令を理解します。文字がどれだけ増えても、ページの外へ飛び出すことは二度とありません。
—
陥りやすい罠：「幅を手動で固定した後に起る悲劇」
ここで、現場でよくある「ハマりどころ」を一つシェアしておきます。
「`AutoFitBehavior` を使ったのに、なんか列幅がガタガタになる…」という場合、その直前に `Cell.Width` などを駆使して個別のセル幅をガチガチに固定（ハードコーディング）していないかを確認してください。
Wordの表は、個別のセル幅の合計が優先されることがあり、`wdAutoFitWindow` と個別の幅指定がケンカを起こすことがあります。
基本の流儀は「まず `wdAutoFitWindow` で全体枠をページに合わせ、細かい配分はWord（あるいは等幅設定）に任せる」ことです。
どうしても特定の列だけ幅を変えたい場合は、表全体をウィンドウ幅にフィットさせた後に、特定の列（例: `tbl.Columns(1).Width`）を調整するという順番を守りましょう。
—
おわりに
いかがでしたでしょうか？
`AutoFitBehavior` というたった一つのメソッドを知るだけで、あなたが作るWordマクロの品質はプロのそれへと一気に引き上げられます。もう、出力されたドキュメントのレイアウトを一つひとつ手動で直す必要はありません。
地道な定型作業はすべてVBAに任せて、私たちはもっとクリエイティブな仕事に集中しましょう。
それでは、次回の極限の知見でお会いしましょう！
