Wordオートコレクトの極限制御：VBAによる高速辞書管理とエンタープライズ同期
Wordの「オートコレクト」機能は、単なる入力ミスの修正ツールではない。数千、数万語に及ぶ社内専門用語や製品名、レガシーシステムのコード体系を統一するための「暗黙の入力強制レイヤー」として機能させうる。
GUIから手動で1件ずつ登録・メンテするなど、シニアエンジニアのやることではない。今回は、`AutoCorrectEntries`オブジェクトを直に叩き、メモリ効率と実行速度を極限まで高めたVBAによるオートコレクト辞書のプログラム制御、および外部データソースとの同期手法を解説する。
—
1. Wordオートコレクトオブジェクトモデルの構造的理解
オートコレクトの管理実体は、`Application.AutoCorrect.Entries` コレクションにある。ここにアクセスすることで、Wordの背後で動いている置換辞書を直接操作できる。
ここで注意すべきは、プレーンテキスト形式の置換と、リッチテキスト（書式付き・図表含む）形式の置換の2つが存在する点だ。大規模な用語統一を行う場合、前者の `Add` メソッドと、後者の `AddRichText` メソッドの挙動の違いを把握していなければ、意図せぬ書式汚染を招く。
基礎：安全な追加と重複エラーの回避
既に存在するキーに対して `Add` を実行すると、Wordは容赦なく実行時エラー（エラー 5810: 「指定された名前のオートコレクト エントリは既に存在します」）を吐く。これを回避するため、追加前に存在チェックを行うか、エラーハンドリングを挟むのが定石だ。
Sub SafeAddAutoCorrect(ByVal Key As String, ByVal Value As String)
Dim ace As AutoCorrectEntry
On Error Resume Next
‘ 既存エントリの取得を試みる
Set ace = Application.AutoCorrect.Entries(Key)
On Error GoTo 0
If Not ace Is Nothing Then
‘ 既に存在する場合は値を更新（削除して再追加）
ace.Delete
End If
‘ 新規追加
Application.AutoCorrect.Entries.Add Name:=Key, Value:=Value
End Sub
—
2. パフォーマンスの最適化：数千件の辞書を瞬時に同期する
外部のマスターデータ（CSVやSQL Serverなど）から取得した数千件の用語をオートコレクトに流し込む場合、画面描画やイベントの発生がボトルネックとなり、VBAの実行が極端に遅くなる。
プロのアーキテクトであれば、一連のバッチ処理において以下の「3種の神器」を必ず適用する。
1. `Application.ScreenUpdating = False` （画面描画の停止）
2. `Application.DisplayAlerts = wdAlertsNone` （警告ダイアログの抑制）
3. ループ内での冗長なオブジェクト参照の排除
以下に、CSVファイルから一括でオートコレクト辞書を高速同期するエンタープライズグレードのコードを示す。
Option Explicit
Public Sub SyncAutoCorrectFromCSV(ByVal CsvFilePath As String)
‘ 実行時間計測用
Dim startTime As Double
startTime = Timer
‘ 環境最適化
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.AutomationSecurity = msoAutomationSecurityForceDisable
End With
Dim fileNum As Integer
fileNum = FreeFile
‘ ファイル存在確認
If Dir(CsvFilePath) = “” Then
MsgBox “指定されたCSVファイルが存在しません: ” & CsvFilePath, vbCritical
GoTo Cleanup
End If
Open CsvFilePath For Input As #fileNum
Dim lineData As String
Dim fields() As String
Dim entriesCount As Long
entriesCount = 0
‘ ヘッダー行のスキップ（必要に応じて）
If Not EOF(fileNum) Then Line Input #fileNum, lineData
‘ トランザクション処理の代わりとしてエラー監視
On Error GoTo ErrorHandler
Do While Not EOF(fileNum)
Line Input #fileNum, lineData
If Trim(lineData) <> “” Then
fields = Split(lineData, “,”)
‘ CSVフォーマット: キー,置換後文字列
If UBound(fields) >= 1 Then
Dim keyStr As String
Dima valStr As String
keyStr = Trim(fields(0))
valStr = Trim(fields(1))
‘ ダブルクォーテーションの除去
keyStr = Replace(keyStr, “”””, “”)
valStr = Replace(valStr, “”””, “”)
‘ 登録処理
Call ForceUpdateEntry(keyStr, valStr)
entriesCount = entriesCount + 1
End If
End If
Loop
Close #fileNum
‘ 完了ログ
MsgBox “オートコレクト辞書の同期が完了しました。” & vbCrLf & _
“処理件数: ” & entriesCount & ” 件” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation
Cleanup:
‘ 環境復元
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.AutomationSecurity = msoAutomationSecurityLow
End With
Exit Sub
ErrorHandler:
Close #fileNum
MsgBox “同期処理中にエラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
‘ 内部ヘルパー: 存在チェックと削除・追加をノータイムで行う
Private Sub ForceUpdateEntry(ByVal Key As String, ByVal Value As String)
Dim ace As AutoCorrectEntry
On Error Resume Next
Set ace = Application.AutoCorrect.Entries(Key)
If Not ace Is Nothing Then
ace.Delete
End If
On Error GoTo 0
Application.AutoCorrect.Entries.Add Name:=Key, Value:=Value
End Sub
—
3. レガシー環境・システム間連携の罠：文字コードとエントリ上限
長年運用されているWord環境において、オートコレクトの制御にはいくつかの落とし穴が存在する。シニアエンジニアとして、これらを事前に潰しておく必要がある。
① 文字コードの罠（Shift_JIS と UTF-8）
VBAの `Open … For Input` は、デフォルトでANSI（Shift_JIS等）を前提とする。近年のシステム間連携で出力されるCSVが `UTF-8 (BOM付き/無し)` である場合、日本語のキーや置換文字列が文字化けし、オートコレクト辞書が破損する。
完全なシステム間連携を行う場合は、VBA単体で処理するのではなく、一度ADODB.Stream等を用いてUTF-8からShift_JIS（あるいはUnicode）へストリーム変換するか、PowerShell経由で前処理を行う設計が望ましい。
② AutoCorrectEntries のエントリ上限とパフォーマンス劣化
Wordのオートコレクトは、メモリ上のコレクションとして保持される。数万件規模のエントリを登録すると、Word自体の起動時間や、タイピング時のキー入力に対する反応速度（インテリセンス的なバックグラウンド処理）に悪影響を及ぼすケースがある。
「何でもかんでもオートコレクトに突っ込む」のではなく、文書校閲（Proofing）や正規表現ベースの `Range.Find` 置換マクロと適切に役割分担させるべきである。
—
4. チーフアーキテクトからの提言
オートコレクト辞書は、ローカルPCの `Normal.dotm` やOfficeのプロファイルに隠蔽されがちであり、組織全体のガバナンスが効きにくい領域の一つだ。
「部署ごとに異なる用語集が使われている」「古い製品名がいつまでも修正されない」といったレガシーな課題に対し、今回紹介したVBAスクリプトを社内のログオン時スクリプトや、マスター管理用のメンテナンスツール（Excelアドイン等）と組み込むことで、「組織全体の入力標準化をコードで担保する」強靭なアーキテクチャを構築してほしい。
枯れた技術であるVBAであっても、オブジェクトモデルの本質を理解し、メモリとI/Oを最適化すれば、モダンなシステムに匹敵する高速な自動化基盤として機能し続ける。
