【テクニカル・上級編】【初心者向け】表の全セルに対して一括でフォントや段落設定を適用するツール – Word VBA解析バイブル

Word VBA

2026.10.24

Wordの表（Table）をVBAで扱う際、多くの初心者が陥る罠は、`Selection`オブジェクトの多用だ。画面を描画しながらカーソルを動かすその手法は、数千ページ規模の文書においては致命的なパフォーマンス低下を招く。

我々のようなシステムアーキテクトにとって、VBAは単なるマクロ言語ではない。COM（Component Object Model）を通じてWordの内部エンジンを直接叩くインターフェースだ。今回は、文書内の全ての表に対して、メモリ効率と実行速度を極限まで高めた書式統一の「正解」を提示する。

—

Wordのオブジェクトモデルにおいて、`Selection`はUIの写し鏡だ。これを使うと、CPUは常に「どこを選択しているか」をレンダリングし続ける。対して`Range`は、ドキュメント内の抽象的なメモリ領域を指し示すポインタだ。

表の全セルを走査する場合、`Range`オブジェクトを直接操作することで、画面描画をバイパスし、処理時間を劇的に短縮できる。

以下は、文書内の全テーブルの全セルに対し、フォント、段落設定、そして列幅の微調整を一括で適用するコードだ。

Option Explicit

‘ 伝説的なアーキテクトの戒め：
‘ オブジェクトの解放を怠る者は、メモリリークという名の亡霊に取り憑かれる。
‘ Word VBAでは明示的なNothing代入は必須の儀式である。

Public Sub BatchApplyTableFormat()
Dim doc As Document
Dim tbl As Table
Dim rng As Range

Set doc = ActiveDocument

‘ 画面更新の一時停止（高速化の鉄則）
Application.ScreenUpdating = False

On Error GoTo Cleanup

For Each tbl In doc.Tables
‘ セル一つ一つを走査するのではなく、テーブル全体のRangeを操作する
Set rng = tbl.Range

With rng
‘ フォント設定を一括流し込み
With .Font
.Name = “游明朝”
.Size = 10.5
.Color = wdColorBlack
End With

‘ 段落設定：行間やインデントを一括制御
With .ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
End With
End With

‘ 必要に応じて個別の行・列へのアクセスが必要な場合も、
‘ Cellオブジェクトを直接叩くのではなくRangeを再定義して適用せよ
Next tbl

Cleanup:
Application.ScreenUpdating = True

‘ オブジェクトの明示的解放
Set rng = Nothing
Set tbl = Nothing
Set doc = Nothing

If Err.Number <> 0 Then
MsgBox “エラー発生: ” & Err.Description, vbCritical
End If
End Sub

—

このコードが単なる「リファレンスの引き写し」と異なるのは、以下の3点における極限の意識だ。

Wordの描画が重すぎる場合、`LockWindowUpdate` APIを呼び出し、OSレベルでウィンドウの再描画を強制停止させる手法がある。VBAの`ScreenUpdating`が効かないような複雑なオブジェクト連鎖が発生する場合、これに頼るのがプロの作法だ。

Word VBAにおいて`For Each`ループ内でオブジェクトを生成し続けると、ガベージコレクションが即座に走らないことがある。数万行のテーブルを扱う際は、定期的に`DoEvents`を挟むか、オブジェクトの参照を確実に切ることで、プロセスの肥大化を防ぐ。

古いWordファイル（.doc）と現代のXMLベース（.docx）では、テーブルの構造定義が異なる。`Range`オブジェクトはXML構造を抽象化して扱うため、レガシー環境ほど`Selection`ではなく`Range`による操作が、予期せぬレイアウト崩れを防ぐ防波堤となる。

—

自動化とは、単にコードを書くことではない。Wordという巨大で複雑なCOMサーバーの機嫌を損ねず、最も効率的なルートでメモリ領域を書き換える「調停」である。

君たちがこれから挑む膨大な文書整形作業において、この`Range`を中心とした設計思想が、定時退社を勝ち取るための強力な武器となることを確信している。

技術は裏切らない。ただ、書き手次第で、それは毒にも薬にもなるのだ。健闘を祈る。