【テクニカル・上級編】【初心者向け】表の全セルに対してフォントサイズと行間を一括適用するマクロ – Word VBA解析バイブル

Word VBA

2026.10.17

Word VBAの「表」を支配する：ドキュメント全体のデザインを強制統制する極限の最適化術

Wordの表（Table）を操作する際、多くの初心者は`Selection`オブジェクトを多用し、処理速度の低下と画面のちらつきという代償を支払う。だが、システム管理者や大規模ドキュメントの保守を担うエンジニアにとって、それは「罪」だ。

本稿では、ドキュメント内の全ての表を走査し、フォントサイズと行間を一括適用する「プロフェッショナルな実装」を提示する。VBAのメモリ管理と、オブジェクトモデルの挙動を理解した者だけが書ける、堅牢かつ高速なコードだ。

—

なぜ「Selection」を使ってはいけないのか

VBAのパフォーマンスを殺す最大の要因は、UIとの同期だ。`Selection`は現在のアクティブなカーソル位置を指すため、処理のたびに描画更新が発生する。

我々が操作すべきは、ドキュメントの背後に存在する`Range`オブジェクトだ。これにより、描画エンジンをバイパスして、メモリ上で直接スタイルを書き込むことが可能となる。

—

極限の最適化：全表一括制御実装

以下のコードは、単なるループ処理ではない。オブジェクトの明示的な解放を組み込み、循環参照やメモリリークを排除した設計だ。

Option Explicit

”’

”’ ドキュメント内の全表に対し、フォントと行間を強制適用する
”’ メモリ最適化のため、Rangeオブジェクトを再利用し、描画負荷を最小化する
”’

Public Sub ApplyUniformTableStyle()
Dim tbl As Table
Dim rng As Range

‘ 画面更新と警告を停止し、処理速度を極限まで引き上げる
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone

On Error GoTo ErrorHandler

‘ ドキュメント内の全表をループ処理
For Each tbl In ActiveDocument.Tables
‘ 表全体のRangeを取得
Set rng = tbl.Range

‘ フォント・段落設定を一括適用
With rng.Font
.Name = “ＭＳゴシック”
.Size = 10
End With

With rng.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 14 ‘ 14ptの固定値で制御
.Alignment = wdAlignParagraphLeft
End With

‘ オブジェクトの明示的解放（VBAのガベージコレクションを信頼しない）
Set rng = Nothing
Next tbl

MsgBox “全表のスタイル統一が完了しました。”, vbInformation

Cleanup:
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
Exit Sub

ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
Resume Cleanup
End Sub

—

現場で役立つアーキテクチャの知見

1. メモリリークを未然に防ぐ「明示的解放」

VBAは参照カウンタ方式だが、循環参照や巨大なRangeオブジェクトの保持は、長大なドキュメントを処理する際にメモリ断片化を招く。`Set obj = Nothing` をループ内で行うのは基本中の基本だが、これを行うことで、Wordが内部的に保持するCOMインターフェースの解放を即座に促すことができる。

2. Windows APIによる「強制再描画」の制御

もし複雑な表操作を行って描画が崩れるようなケースでは、`User32.dll`の`LockWindowUpdate`を呼び出すことで、OSレベルで描画をロックできる。

‘ 宣言部
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As LongPtr

‘ 処理の冒頭で LockWindowUpdate(Application.Hwnd) を呼び、
‘ 終了時に LockWindowUpdate(0) を呼ぶ

これは画面のちらつきを完璧に抑える究極の手段だが、例外処理で確実にロックを解除しないとWordが操作不能になる諸刃の剣である。本番環境で導入する場合は、必ず`Finally`に相当するエラーハンドラを実装すること。

3. レガシーシステムとの連携

もしこのVBAが、外部データベースやSharePointから取得したデータで表を生成するプロセスの一部であるなら、「テンプレートとなる表（ひな形）」を予め隠しブックマークとして保持しておく手法を推奨する。動的に表を生成するよりも、既存の表の行をコピーして中身だけ書き換える方が、Wordのスタイル崩れを劇的に減らせるからだ。

—

最後に：エンジニアとしての矜持

コードを書くことは、単に動くものを作ることではない。「後任者がメンテナンスする際に、どれだけストレスを与えないか」、そして「OSやアプリケーションの負荷をどれだけ削れるか」。

この視点を持つ者だけが、真の自動化エンジニアとして評価される。Word VBAはレガシーと言われるが、その深淵を覗けば、そこにはまだ開拓の余地が多分に残されている。次の現場でも、このコードで完璧なドキュメント統制を実現してほしい。