「マクロの記録」の限界を超えて。Wordの表を美しく制御する、AutoFitの極意
こんにちは。業務自動化の世界へようこそ。
「マクロの記録」を使って、ExcelのデータをWordに貼り付ける作業を自動化したことはありませんか？
最初は「おお、動いた！」と感動するものです。しかし、実際に運用してみると、こんな壁にぶつかるはずです。
「貼り付けた表が、右側の余白を突き抜けてページの外側に消えてしまった……」
そう、Excelのセル幅とWordのページ幅は、全くの別物なのです。Excelの広い世界から、Wordという限られた「紙の枠組み」へデータを持ち込むとき、私たちは単に「貼り付ける」だけでなく、「枠に合わせて整える」という工程をコードに組み込まなければなりません。
今日は、そんな「表の崩れ」をスマートに解決し、プロフェッショナルな仕上がりに導くための`AutoFitBehavior`メソッドの使い方を伝授します。ここをマスターすれば、あなたの作るレポートは劇的に美しくなりますよ。
1. なぜ「貼り付けただけ」では表が壊れるのか？
まず、エンジニアとして「なぜ」を理解しておきましょう。
マクロの記録で生成されるコードは、多くの場合 `Selection.PasteExcelTable` のような命令を使います。これは「今あるExcelの見た目（列幅）を尊重して貼り付ける」という挙動をします。
しかし、Wordのレイアウトエンジンは、貼り付けられた瞬間に「新しい表の幅」を計算します。Excel側で列幅が広すぎると、Wordは「指示通りに貼り付けた結果、ページ幅を超えてしまった」という状態になり、そのまま右側へ突き抜けてしまうのです。
これを解決するのが、`AutoFitBehavior`（オートフィット・ビヘイビア）。
「中身に合わせて縮めるのか」「ページ幅に合わせて広げるのか」を、VBAから明示的に指示してあげる必要があるのです。
2. 武器となる2つの「振る舞い」
`AutoFitBehavior` メソッドには、主に2つの重要なモード（定数）があります。これらを使い分けるのが、プロの技です。
① `wdAutoFitContent`（内容に合わせる）
セル内の文字量に合わせて、列の幅をギュッと最小限に絞り込みます。
- 使い所: 項目名が短いリストや、データが少ない表。
- メリット: 無駄な空白が減り、コンパクトにまとまる。
② `wdAutoFitWindow`（ウィンドウに合わせる）
表全体の幅を、Wordの左右の余白（マージン）にピッタリ合わせます。
- 使い所: 報告書や契約書など、ページ全体を美しく使いたい場合。
- メリット: ページからはみ出すことがなく、見た目が非常に整う。
3. 実践：Excelデータを美しく流し込む黄金のコード
それでは、実際に使えるコードを見てみましょう。
今回は、「特定の場所にExcelのデータを貼り付け、その後すぐにページ幅に最適化する」という一連の流れを実装します。
「マクロの記録」でよく見る `Selection`（選択範囲）を多用するスタイルではなく、`Range`（範囲オブジェクト）を操作する、より堅牢で高速な書き方を紹介します。
Sub ProfessionalTablePaste()
' ===========================================================
' 目的: ExcelのデータをWordへ貼り付け、列幅をページ幅に自動調整する
' 設計思想: Selectionに頼らず、Rangeオブジェクトを操作して高速化と安定性を両立
' ===========================================================
Dim targetRange As Range
Dim targetTable As Table
On Error GoTo ErrorHandler ' エラーハンドリングの準備
' 1. 貼り付け先の位置を指定（例：文書の末尾）
' 本来は、特定のブックマークなどを指定するのが理想的です
Set targetRange = ActiveDocument.Content
targetRange.Collapse Direction:=wdCollapseEnd
targetRange.InsertAfter vbCr ' 改行を一つ入れてから貼り付け
targetRange.Collapse Direction:=wdCollapseEnd
' 2. Excelからデータを貼り付け
' ※このコードを実行する前に、Excelでコピー操作が完了している必要があります
targetRange.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
' 3. 貼り付けた直後の「表オブジェクト」を特定する
' 貼り付けた直後のRangeには、新しく生成された表が含まれています
If targetRange.Tables.Count > 0 Then
Set targetTable = targetRange.Tables(1)
' --- ここからがプロの最適化工程 ---
With targetTable
' A. まず、表全体のレイアウト設定を安定させる
.AllowAutoFit = True
' B. 【重要】ページ幅に合わせて列幅を自動調整
' これにより、ページからはみ出す問題が完全に解消されます
.AutoFitBehavior (wdAutoFitWindow)
' C. 見た目の微調整（任意）
' 表の境界線を少し整えたり、フォントサイズを調整したりできます
.Range.Font.Size = 10
.Borders.Enable = True ' 枠線を確実に表示
End With
MsgBox "表の貼り付けと最適化が完了しました！", vbInformation
Else
MsgBox "表が見つかりませんでした。コピーされているか確認してください。", vbExclamation
End If
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"エラー内容: " & Err.Description, vbCritical
End Sub4. ここが「プロ」の分かれ道：技術的な深掘り
コードを書くとき、ただ動けばいいという考えは卒業しましょう。以下の2点は、中級者へステップアップするために極めて重要です。
なぜ `Selection` ではなく `Range` なのか？
「マクロの記録」は、常に「今マウスで選択している場所（`Selection`）」を操作します。しかし、`Selection` はユーザーがどこをクリックしているかに左右されるため、非常に不安定です。
一方、`Range` は「文書内の特定の座標」を指す概念的なオブジェクトです。`Range` を使って操作することで、ユーザーがどこにカーソルを置いていようとも、プログラムは正確に、そして高速に動作します。
オブジェクトのライフサイクルを意識する
コード内の `Set targetTable = targetRange.Tables(1)` という部分に注目してください。
貼り付けた直後に、その「塊（表）」を `targetTable` という変数に格納しています。これにより、それ以降の操作（幅の調整、フォントの変更など）は、「文書全体」ではなく「その表だけ」に対してピンポイントで行われます。
この「対象を絞り込む」という意識こそが、複雑な自動化プログラムをバグなく、かつ高速に動かすための鍵なのです。
まとめ：次はあなた自身の武器に
いかがでしたか？
`AutoFitBehavior(wdAutoFitWindow)` を一行加えるだけで、あなたの作成する自動化ツールは、まるで人間が丁寧にレイアウトしたかのような完成度になります。
1. 貼り付け（Paste）
2. オブジェクトの特定（Set Table）
3. 振る舞いの指定（AutoFit）
この3ステップを意識するだけで、Word VBAの操作レベルは一段階上がります。
「マクロの記録」で生成されたコードを見たら、「これを `Range` で書き直せないか？」「`AutoFit` は必要じゃないか？」と問いかけてみてください。
その探究心が、あなたを伝説的なエンジニアへと導いてくれるはずです。
また次の記事でお会いしましょう！
