Word VBAで「オートコレクト」を完全掌握！表記ブレ・誤変換を一元管理する辞書エンジンの作り方
こんにちは！Word VBAの世界へようこそ。
マクロの記録から一歩踏み出し、コードによる本格的な業務自動化を目指すみなさんをナビゲートする先輩エンジニアです。
今回のテーマは、Wordの隠れた強力機能「オートコレクト（AutoCorrect）」のVBA制御です。
「社名や専門用語の表記揺れをなくしたい」
「よく使う定型文や、タイポしやすい英単語の誤変換を自動で直したい」
こうした悩みを解決するのが、Wordに標準搭載されているオートコレクト機能です。これをVBAで一括コントロールできるようになると、「単なる文書処理」から「表記ルールを自動適用する高度な執筆環境の構築」へとステップアップできます。
「ここをクリアすれば、Word VBAの基本（オブジェクトモデルの階層理解）はバッチリですよ！」
焦らず、本質からしっかり紐解いていきましょう。
—
1. 構造を理解する：なぜ AutoCorrect は Application オブジェクトなのか？
コードを書く前に、まずWord VBAの「オブジェクトモデル」におけるオートコレクトの位置づけを捉えておきましょう。
Word VBAを学ぶ際、私たちが日常的に扱うオブジェクトには以下の3大要素があります。
[ Application ] ← Word全体（環境設定・グローバル機能）
└─ [ Document ] ← 1つひとつのファイル（文書）
└─ [ Range / Selection ] ← 文書内のテキストや範囲
- `Document` や `Range` は「特定の文書」や「その中の文字」を操作します。
- 一方、`AutoCorrect`（オートコレクト）は `Application` オブジェクトの直下に存在します。
なぜ Application なのか？
オートコレクトの設定は、特定の文書ファイルだけに保存されるのではなく、あなたが使っているWord全体（アプリ環境）の共通辞書データとして保持されるからです。
つまり、VBAで `Application.AutoCorrectEntries` を更新すると、今後開くすべての文書でその自動修正ルールが適用されることになります。このスケールの大きさと影響範囲を意識することが、マスターへの第一歩です。
—
2. オートコレクト操作の基本API
オートコレクトの辞書項目は `AutoCorrectEntries` コレクションとして管理されています。
基本となるのは「追加」と「削除」の2つの操作です。
- 追加: `Application.AutoCorrect.Entries.Add(Name, Value)`
- `Name`: 置き換え前の文字列（例: `[kabu]` または 誤変換パターン `typoo`）
- `Value`: 置き換え後の正しい文字列（例: `株式会社` または `typo`）
- 削除: `Application.AutoCorrect.Entries(Name).Delete`
とてもシンプルですね！しかし、実務で安全に運用するためには「すでに登録されていたらどうするか？」「存在しないものを削除しようとした際のエラー処理」というプロの考慮が必要になります。
—
3. 【実践コード】単一要素の安全な追加・削除モジュール
まずは、エラーを起こさずに単一の項目を追加・削除する、安全設計の基本プロシージャを作成してみましょう。
Option Explicit
‘ ==========================================
‘ 機能: オートコレクトに新しい変換ルールを登録する
‘ 引数:
‘ strName : 変換前のキーワード (トリガー文字列)
‘ strValue : 変換後の正しいテキスト
‘ ==========================================
Public Sub AddAutoCorrectRule(ByVal strName As String, ByVal strValue As String)
On Error GoTo ErrorHandler
‘ 空白チェック
If Trim$(strName) = “” Or Trim$(strValue) = “” Then
MsgBox “登録する文字列が空です。処理を中止します。”, vbExclamation
Exit Sub
End Sub
‘ Addメソッドは、既存のNameが存在する場合、自動的にValueを上書き（更新）します
Application.AutoCorrect.Entries.Add Name:=strName, Value:=strValue
Debug.Print “【登録完了】 ” & strName & ” -> ” & strValue
Exit Sub
ErrorHandler:
MsgBox “オートコレクトの登録中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ ==========================================
‘ 機能: 指定したオートコレクトのルールを削除する
‘ 引数:
‘ strName : 削除対象のキーワード
‘ ==========================================
Public Sub RemoveAutoCorrectRule(ByVal strName As String)
Dim objEntry As AutoCorrectEntry
On Error Resume Next
‘ 指定したNameのエントリを取得（存在しない場合はNothing相当のエラー）
Set objEntry = Application.AutoCorrect.Entries(strName)
On Error GoTo 0
‘ エントリが存在する場合のみ削除を実行
If Not objEntry Is Nothing Then
objEntry.Delete
Debug.Print “【削除完了】 ” & strName
Else
Debug.Print “【対象なし】 削除対象が見つかりませんでした: ” & strName
End If
End Sub
コードの解説とポイント
1. `Entries.Add` の上書き挙動:
既存の `Name` と同じキーを `.Add` した場合、Wordはエラーを出さずに新しい `Value` へ更新してくれます。そのため、事前の存在チェックなしに安全に登録できます。
2. `RemoveAutoCorrectRule` のエラー回避:
存在しないキーを `Application.AutoCorrect.Entries(“存在しないキー”).Delete` しようとすると、実行時エラー `5941`（指定したコレクションのメンバーは存在しません）が発生します。上記コードでは `On Error Resume Next` を局所的に使い、安全に存在チェックを行っています。
—
4. 【応用コード】専門用語辞書を一括インポートするツールの構築
実務では、「プロジェクト専用の略称リスト」や「業界用語」を1つずつ登録するのは大変です。配列やデータシートから一括でオートコレクトに読み込ませるツールを作りましょう。
以下のコードを実行すると、定義したリストが一括でWordのオートコレクト辞書に組み込まれます。
Option Explicit
‘ ==========================================
‘ 機能: 業務用の専門用語辞書を一括でオートコレクトに登録する
‘ ==========================================
Public Sub ImportBusinessDictionary()
‘ 登録データの定義 (置き換え前, 置き換え後)
‘ 実務ではExcelや外部ファイルから読み込む構造に拡張可能です
Dim dictData As Variant
dictData = Array( _
Array(“(kabu)”, “株式会社”), _
Array(“(yu)”, “有限会社”), _
Array(“[sys]”, “次世代基幹業務システム開発プロジェクト”), _
Array(“WordVBA”, “Word Visual Basic for Applications”), _
Array(“てすと”, “【要確認】テストデータ”) _
)
‘ パフォーマンス向上のため画面更新を停止（Word操作の鉄則）
Dim originalScreenUpdating As Boolean
originalScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
Dim i As Long
Dim strTrigger As String
Dim strReplacement As String
Dim successCount As Long
successCount = 0
On Error GoTo CriticalError
‘ 配列をループ処理して一括登録
For i = LBound(dictData) To UBound(dictData)
strTrigger = CStr(dictData(i)(0))
strReplacement = CStr(dictData(i)(1))
‘ 登録実行
Application.AutoCorrect.Entries.Add Name:=strTrigger, Value:=strReplacement
successCount = successCount + 1
Next i
‘ 後処理と結果通知
Application.ScreenUpdating = originalScreenUpdating
MsgBox successCount & ” 件の専門用語をオートコレクトに登録しました！” & vbCrLf & _
“これでタイピング中の自動変換が有効になります。”, vbInformation, “辞書インポート完了”
Exit Sub
CriticalError:
Application.ScreenUpdating = originalScreenUpdating
MsgBox “処理中に予期せぬエラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
5. 知っておくべきプロの落とし穴とアーキテクチャ上の注意点
オートコレクトの制御を完璧にするために、シニアエンジニアとして絶対に知っておいてほしい「3つの重要仕様」をお伝えします。
① 全体影響（グローバル変更）のリスクを意識する
先述の通り、`AutoCorrectEntries` への追加はユーザーのWord環境全体（標準の `.acl` 辞書ファイル）に保存されます。
社内ツールとして配布する場合、ユーザーがすでに個人で設定しているオートコレクト項目を破壊しないような命名ルール（例: `[sys]` のようにブラケットで囲む等）を工夫するのがマナーです。
② 書式付きテキスト（AddRichText）との違い
今回紹介した `.Add` メソッドは「プレーンテキスト（書式なし）」の登録です。
もし「赤字の太字で『重要』と自動変換させたい」といった書式情報も含めたい場合は、`Range` オブジェクトを選択状態にして `Entries.AddRichText` を使用する必要があります。
‘ 参考: 選択範囲のテキストと書式をそのままオートコレクトに登録する場合
Application.AutoCorrect.Entries.AddRichText Name:=”[imp]”, Range:=Selection.Range
③ 言語設定（LanguageID）の壁
Wordのオートコレクトは、「現在選択されているテキストの言語ID」ごとに辞書が分離されています。
日本語文書を編集している時は「日本語用のオートコレクト辞書」、英文を編集している時は「英語用のオートコレクト辞書」が適用されます。VBAから登録する際は、標準の言語コンテキストで登録されているか意識しておくと、トラブルシューティング時に焦らずに済みます。
—
6. まとめ：Word VBAの基礎を固めたあなたへ
お疲れ様でした！今回は `Application.AutoCorrectEntries` を使った、Wordの自動修正辞書の制御方法を解説しました。
今回のポイントを復習しましょう。
1. オートコレクトは `Application` レベルのオブジェクトであり、Word全体に影響する。
2. `Entries.Add` で簡単に一括登録ができ、既存項目は安全に更新される。
3. 削除時は存在チェック（エラーハンドリング）を挟むのが実践的。
4. 入力補助のトリガー記号（`[sys]` など）を工夫することで、誤作動を防ぐ快適な入力環境が作れる。
単に文書上の文字を置換（`Range.Find`）するだけでなく、ユーザーの「入力体験そのもの」をVBAで快適にカスタマイズできるようになると、Wordマクロ開発の楽しさは一気に広がります。
ここをクリアできれば、Word VBAのオブジェクトモデルの階層（`Application` ＞ `Document` ＞ `Range`）の理解はバッチリです！
自信を持って、次のステップへ進んでくださいね。応援しています！
