【Word VBA】表の書式を「強制統一」せよ：堅牢な一括適用マクロの極意
現場でWordファイルを扱っていると、必ず直面する問題がある。それは「コピペの繰り返しで崩壊した表デザイン」だ。
複数の担当者が作成したドキュメントを統合する際、フォントサイズや行間がバラバラになった表を一つずつ手作業で修正するのは、業務自動化エンジニアのプライドが許さない。
今日は、ドキュメント内のすべての表を走査し、デザインルールを「物理的」に強制適用するプロフェッショナルなVBAコードを授ける。単に動けばいいコードではない。オブジェクトのライフサイクルを理解し、保守性を担保したプロダクションレベルの設計だ。
—
1. なぜ「全セル操作」で事故が起きるのか
初心者が陥りがちなミスは、`Selection`オブジェクトを乱用することだ。
`Selection`は表示されている画面の状態に依存するため、実行速度が極端に遅く、かつ予期せぬエラー（選択範囲が意図しない場所に飛ぶ等）を誘発する。
我々プロフェッショナルは、`Range`オブジェクトを直接操作する。これだけでコードの安定性は劇的に向上し、実行速度も数倍になる。
2. 堅牢な一括適用プロシージャ
以下が、ドキュメント内のすべての表を巡回し、フォントサイズと行間を規定値に書き換えるコードだ。
Option Explicit
‘ ———————————————————
‘ @brief ドキュメント内の全表に対して書式を強制適用する
‘ @author 業務自動化エンジニア
‘ ———————————————————
Public Sub ApplyStandardTableStyle()
Dim doc As Document
Dim tbl As Table
Dim rng As Range
Set doc = ActiveDocument
‘ 画面更新を停止してパフォーマンスを最大化
Application.ScreenUpdating = False
‘ 全テーブルをループ処理
For Each tbl In doc.Tables
‘ 表全体のRangeを取得
Set rng = tbl.Range
‘ フォント設定の適用
With rng.Font
.Name = “游ゴシック”
.Size = 10.5
End With
‘ 段落設定（行間）の適用
With rng.ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle ‘ 1行固定
.SpaceBefore = 0
.SpaceAfter = 0
End With
Next tbl
‘ 画面更新を再開
Application.ScreenUpdating = True
MsgBox “全テーブルの書式統一が完了しました。”, vbInformation
End Sub
—
3. このコードが「プロダクション品質」である理由
この短いコードには、現場で生き残るための3つの「哲学」が詰まっている。
① `Application.ScreenUpdating = False` の重要性
Word VBAにおいて、画面描画の更新は最もコストのかかる処理だ。これをOFFにすることで、Wordは裏側で計算だけを行い、最後に一気に結果を反映させる。数千行あるドキュメントでは、これだけで実行時間が10倍以上変わることもある。
② `Range` オブジェクトへの直接アクセス
`tbl.Range` を使うことで、表の中身を一つのメモリ領域として扱う。セル一つひとつをループして`Select`するような非効率な処理は排除している。これにより、メモリの解放もスムーズに行われ、安定性が担保される。
③ 保守性を高める抽象化
このコードは「ハードコーディング」の修正が容易な構造になっている。もし今後「見出し行だけ色を変えたい」といった要件が出てきても、このコードをベースに`Row(1)`の判定を追加するだけで拡張可能だ。
—
4. さらなる高みへ：データベース連携の注意点
もし君が、Excel等の外部データから表を動的に生成し、その後でこのマクロを走らせるようなパイプラインを構築しているなら、以下の点に注意してほしい。
- エラーハンドリングの導入: 表の中にオブジェクト（画像や数式）が含まれている場合、プロパティの参照でエラーが出ることがある。必要に応じて `On Error Resume Next` を活用し、特定のセルだけ除外するロジックを組むこと。
- テンプレート戦略: VBAで無理に装飾を複雑にするよりも、Word側で「表スタイル」を作成しておき、VBAからは `tbl.Style = “スタイル名”` と指定する方が圧倒的に堅牢だ。
最後に：エンジニアとして持つべき視点
自動化とは、単に「楽をすること」ではない。「組織の成果物の品質を、属人性を排除して一定のレベルに保ち続ける仕組みを作ること」だ。
このコードをそのままコピペして終わりにするのではなく、君のプロジェクトの要件に合わせてカスタマイズしてみてほしい。それが、君が真のエンジニアへと進化する第一歩だ。
何か技術的な壁に突き当たったら、いつでも戻ってくるといい。現場からは以上だ。
