こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードをそのまま動かしてみたものの、「あれ？なんだか処理がやたらと遅いな……」と感じたことはありませんか？
特に、何百ページもある分厚いマニュアルや契約書で「特定の用語を一斉に置換したい」と思ったとき、画面がパチパチと目まぐるしく切り替わりながら、終わるまでに何分も待たされた経験があるかもしれません。
今回は、そのストレスを魔法のように消し去り、処理速度を劇的にブーストさせる「画面更新の停止（ScreenUpdating）」という極上のテクニックを伝授します。ここをクリアすれば、あなたの書くコードは「動くだけの素人マクロ」から「プロの自動化スクリプト」へと一気にランクアップしますよ。
—
なぜWordの置換処理は遅いのか？（知られざる裏側の事情）
私たちが普段何気なく使っているWordの「検索と置換」。これをVBAでループさせたり、大量の文字列に対して実行したりすると、Wordの心臓部（COMオブジェクト）は悲鳴を上げます。
なぜなら、VBAが1回「置換しなさい」と命令するたびに、Wordは律儀に以下の一連の作業を行っているからです。
1. テキストの書き換え
2. レイアウトの再計算（ページ数の増減、行送りの再調整）
3. 画面（GUI）の再描画（モニターへの文字の映し出し）
……そう、画面のチラつき（描画）やレイアウトの再計算には、想像以上に膨大なCPUパワーが割かれています。人間が目で追えないほどのスピードで文字を書き換えているのに、一回一回モニターを塗り替えていたら、そりゃあ遅くなって当然ですよね。
ここで登場するのが、「おい、画面の書き換えや再計算なんて後回しでいいから、裏で黙々と高速に処理を済ませてくれ！」とWordに指示する制御テクニックです。
—
劇的改善！ScreenUpdatingの魔法
Word VBAにおける速度改善の王道、それが `Application.ScreenUpdating` プロパティの制御です。
処理の開始時に画面描画を「オフ（False）」にし、すべての処理が終わった瞬間に「オン（戻す・True）」にする。たったこれだけの記述で、処理時間が数分から数秒へと劇的に短縮されます。
基本の構文イメージ
Sub FastReplaceSample()
‘ 1. 画面の更新をストップ！（ここがキモ）
Application.ScreenUpdating = False
‘ — ここに重たい検索・置換処理を書く —
‘ 2. 処理が終わったら画面の更新を再開！
Application.ScreenUpdating = True
End Sub
たったこれだけ？と思うかもしれませんが、効果は絶大です。しかし、中級者を目指すあなたには、プロとして絶対に知っておいてほしい「ある鉄則」があります。
—
【重要】エラーハンドリングという名の安全装置
もし、画面を `False` にしている最中に、何らかのエラー（予期せぬ文書の構造エラーやメモリ不足など）が発生してマクロが強制終了したらどうなるでしょうか？
画面が `False` （オフ）のままフリーズしたかのようにプログラムが止まり、Wordの操作を受け付けなくなってしまいます（ユーザーは大パニックです）。
そのため、プロのエンジニアは必ず `On Error GoTo` を使って、エラーが起きたときでも確実に画面描画を復元させる「安全装置」をセットします。
それでは、実務でそのまま使える完璧なテンプレートコードを見てみましょう。
—
実戦で使える！爆速・安全な置換マクロの完全版
以下のコードは、文書内の特定のキーワードのリストを一括で高速置換するサンプルです。安全装置（エラー対策）もしっかり組み込んでいます。
Sub UltraFastReplace()
Dim startTime As Double
startTime = Timer ‘ 処理時間計測用
‘ 【安全装置】エラーが発生しても確実に画面を戻せるようにする
On Error GoTo ErrorHandler
‘ 1. 画面の更新と警告を停止して、CPUを置換処理だけに全集中させる
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone ‘ 余計なポップアップも抑制
‘ 2. 置換の核心部分（例として3つのワードを置換）
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
‘ 1つ目の置換
.Text = “旧用語A”
.Replacement.Text = “新用語A”
.Execute Replace:=wdReplaceAll
‘ 2つ目の置換
.Text = “旧用語B”
.Replacement.Text = “新用語B”
.Execute Replace:=wdReplaceAll
‘ 3つ目の置換
.Text = “旧用語C”
.Replacement.Text = “新用語C”
.Execute Replace:=wdReplaceAll
End With
ErrorHandler:
‘ 3. 処理終了（またはエラー発生時）、必ず画面描画を元に戻す！
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
‘ エラーがあればメッセージを表示
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
‘ 処理時間の通知（どれだけ速くなったか実感してください）
MsgBox “処理が完了しました！（所要時間: ” & Format(Timer – startTime, “0.00”) & “秒）”, vbInformation
End If
End Sub
—
コードの解説：ここがプロの技
1. `Application.ScreenUpdating = False`
画面描画を完全にシャットアウトします。Wordは画面を見せる必要がなくなるため、メモリと処理能力のすべてを「文字列の検索と置換」に捧げることができます。
2. `Application.DisplayAlerts = wdAlertsNone`
置換の過程で「これ以上検索できません」といったダイアログが出てマクロが止まるのを防ぎます。無人運転（完全自動化）には欠かせない設定です。
3. `ErrorHandler` ラベルの存在
万が一、`With` ブロック内でエラーが起きたとしても、コードの実行は `ErrorHandler:` にジャンプし、必ず `Application.ScreenUpdating = True` が実行されます。これにより「マクロを実行したらWordが固まったまま動かなくなった……」という最悪の事態を防げます。
—
さらにパフォーマンスを上げるためのワンポイントアドバイス
今回のテーマは `ScreenUpdating` ですが、Word VBAで「さらに極限まで速度を追求したい」場合は、以下の設定も同時に組み合わせると効果的です。
- `Application.ScreenUpdating = False` （今回マスターした必須テクニック）
- `ActiveDocument.UndoRecord.StartCustomRecord “一括置換”` などで、不要な「元に戻す（Ctrl+Z）」の履歴を軽量化する（※複雑になるため今回は割愛しますが、超大量処理では効果的です）
- ループ処理を回す際、`Selection` オブジェクト（画面上の選択範囲）を極力使わず、今回紹介したような `Range` オブジェクトで裏側で処理を完結させる。
—
まとめ：ここをクリアすれば、Word VBAの基本はバッチリです！
いかがでしたか？
「画面の更新を止める」という非常にシンプルかつ強力なアプローチを知るだけで、あなたの書くマクロは見違えるほど実用的でプロフェッショナルなものになります。
処理が遅いと感じたら、まずは `ScreenUpdating = False` を疑う。そして、エラー時でも必ず `True` に戻す安全装置を忘れない。
この2つを体に染み込ませておけば、どれほど分厚い文書の自動化を任されても、もう怖くありません。
ぜひ、日々の業務や面倒なドキュメント修正にこのテクニックを取り入れて、圧倒的なスピードを手に入れてくださいね。あなたのVBAライフが、より快適で知的になりますように！
