Word VBAの深淵：ScreenUpdatingとDisplayAlertsが支配する実行速度の真実
Word VBAにおけるパフォーマンスチューニングは、単なる「おまじない」ではない。それは、OfficeのCOMオートメーション・サーバーが裏側でどのようにUIスレッドを占有し、GDI（Graphics Device Interface）のリソースを消費しているかを理解する、低レイヤーの戦いである。
多くのエンジニアが`Application.ScreenUpdating = False`を記述するが、それが「なぜ」劇的に効くのか、そして「エラーで止まった際にどう復旧させるべきか」までを完全に制御できている者は少ない。
本稿では、レガシーなWord VBAアーキテクチャの首根っこを掴み、実行速度を極限まで引き出すための設計哲学を伝授する。
—
1. 描画と警告の「抑制」が持つ真の意味
Wordの`Application`オブジェクトは、マクロの実行中であっても、常にUIの再描画やイベント監視のオーバーヘッドに晒されている。
- ScreenUpdating: これをオフにすることは、WordのUIスレッドをレンダリングタスクから解放し、DOM（Document Object Model）の操作に全リソースを集中させることを意味する。
- DisplayAlerts: Wordは内部的に様々なダイアログ（保存確認、リンク更新、フォント置換など）を保持している。これが表示されると、VBAの実行は「ユーザーのクリック待ち」という無期限のブロッキング状態に陥る。
これらを制御することは、システムを「対話型」から「バッチ処理型」へと強制的に切り替えることと同義である。
—
2. 鋼鉄の復旧ロジック：エラーハンドリングの定石
中途半端な制御は、システムを「ゾンビ状態」にする。マクロがエラーで落ちた際、`ScreenUpdating`が`False`のままWordがフリーズする姿を、現場で幾度見てきただろうか。
「異常終了時こそ、UIを確実に復旧させる」。これがプロフェッショナルとアマチュアの分かれ道だ。
‘ 伝説的なエンジニアが採用する、堅牢な実行フレームワーク
Public Sub ExecuteHighPerformanceTask()
‘ 状態を退避させるための変数
Dim prevScreenUpdating As Boolean
Dim prevDisplayAlerts As Long
‘ 現在の状態を保存
prevScreenUpdating = Application.ScreenUpdating
prevDisplayAlerts = Application.DisplayAlerts
‘ エラーハンドリングの要塞を構築
On Error GoTo Cleanup
‘ 抑制開始
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
‘ — ここにメインロジックを記述 —
‘ Rangeオブジェクトを多用し、Selectionの移動を避けるのがWord高速化の鉄則
Call ProcessLargeDocument
Cleanup:
‘ 何があっても必ず状態を元に戻す
Application.ScreenUpdating = prevScreenUpdating
Application.DisplayAlerts = prevDisplayAlerts
‘ エラーがあれば再送出
If Err.Number <> 0 Then
MsgBox “システムエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. オブジェクトライフサイクルとメモリ最適化の極致
Word VBAでメモリリークを引き起こす最大の要因は、`Selection`オブジェクトへの依存と、`Document`オブジェクトの解放漏れである。
- Selectionを抹殺せよ: `Selection.TypeText`などは、UIの再描画を伴う。`Range`オブジェクトを生成し、メモリ上のバッファを直接操作しろ。
- 明示的解放: VBAはガベージコレクションが脆弱だ。大規模なループ内では、`Set doc = Nothing`を徹底せよ。
高速化のためのRange活用例
‘ 非効率なSelectionの使用例
‘ Selection.TypeText “Data” -> 描画負荷大
‘ 高速なRangeの使用例
Dim rng As Range
Set rng = ActiveDocument.Content
rng.Collapse Direction:=wdCollapseEnd
rng.Text = “Data”
‘ 最後にメモリ解放
Set rng = Nothing
—
4. さらなる高みへ：Windows APIの介入
Wordの描画性能の限界を超えたい場合、`LockWindowUpdate`（User32.dll）を呼び出し、親ウィンドウの描画をOSレベルでロックする手法がある。VBA標準の`ScreenUpdating`が効かない複雑なコントロールやActiveXオブジェクトが埋め込まれた文書に対しても有効だ。
※ただし、これは劇薬である。多用は避け、最後の手段として保持しておくこと。
—
結論：システムは「美しく」あるべきだ
シニアエンジニアにとって、コードは単なる命令の羅列ではない。それは、計算リソースとの「契約」である。`ScreenUpdating`の制御一つにしても、それがなぜ必要なのか、失敗した時にどうリカバリすべきかという物語がコードに書き込まれていなければならない。
あなたの書くVBAが、次にメンテナンスを行う若手エンジニアにとっての「教科書」となることを期待する。
「動く」コードを書くのはスタート地点だ。「壊れない」コードを書くのがプロフェッショナルである。
