こんにちは！ Word VBAの自動化の世界へようこそ。
マクロの記録ボタンを押して「なんだか動いた！」と感動したのも束の間、いざ実務で使おうとすると、なぜかエラーで止まったり、意図しない場所が書き換わってしまったり……そんな壁にぶぶんでいませんか？
今回は、Word VBAの自動化において多くの人が必ずと言っていいほどハマる「フィールドコードの罠」について解説します。
目次（TOC）や相互参照、ページ番号などをマクロで一括更新しようとしたとき、突然の実行時エラーに頭を抱えた経験はありませんか？
ここをクリアすれば、あなたのWord VBAスキルは「初学者」の領域を完全に抜け出し、実務でバリバリ使える「中級エンジニア」の扉を開くことになります。
さあ、優しく、そして本質的なプログラミングの世界へ一緒に入っていきましょう！
—
1. Word VBAにおける「フィールドコード」とは何か？
まず、Wordの裏側の仕組みを少しだけ覗いてみましょう。
Word文書の中には、私たちが普段目にする「文字」だけでなく、「プログラムによって動的に計算・表示されるデータ」が潜んでいます。これがフィールド（Field）です。
- 目次（TOC）：見出しの変更に合わせてページ番号を自動計算する
- 相互参照：「図1へ」「前述の通り」といった文書内の位置を指し示す
- ページ番号（PAGE / NUMPAGES）：現在のページや総ページ数を表示する
これらは非常に便利ですが、Word VBAから操作しようとすると、Excelのセルとは全く違う「独特のライフサイクルと機嫌の悪さ」を見せつけられます。
マクロ記録が通用しない理由
「すべてのフィールドを更新したい！」と思ったとき、マクロの記録を使うと次のようなコードが出力されます。
‘ 【よくあるマクロ記録のコード】
ActiveDocument.Fields.Update
一見、これで動きそうですよね？ しかし、実務の現場では、このたった1行のコードが「エラー 4198: このコマンドは失敗しました」という冷酷なメッセージを叩き出す原因になります。なぜでしょうか？
—
2. なぜエラーが起きるのか？「更新不可なフィールド」の正体
`ActiveDocument.Fields.Update` がエラーを起こす、あるいはスルーされてしまうのには、明確な理由があります。
1. ロックされている（Locked = True）
意図せず、あるいは保護機能によって、そのフィールド自体が「更新禁止」にロックされている場合。
2. 保護されたストーリー（ヘッダー・フッター・保護セクション）にいる
文書の一部に保護がかかっている場合や、ヘッダー・フッター内のフィールドは、通常のコレクション全体への操作から弾かれることがあります。
3. 参照先が破損している・存在しない
相互参照のリンク先（ブックマークなど）が削除されている場合、更新処理がパニックを起こします。
4. そもそも更新する必要がない（またはできない）
つまり、「文中のフィールドを片っ端から無理やり更新しようとする力技」が、エラーの元凶なのです。
プロとして私たちが取るべきアプローチは、「全軍突撃！」ではなく、「一つひとつの状態を確認し、安全なものだけを優しくエスコートして更新する」という丁寧な制御ロジックです。
—
3. 実践！安全にフィールドを判定・ロック解除・更新するVBAコード
それでは、実務でそのまま使える「安全第一」のフィールド更新プロシージャを公開します。
このコードでは、以下のステップを踏んでいます。
1. 文書内のすべてのフィールドを巡回（ループ）する
2. ロックがかかっている場合は、一時的にロックを解除する
3. 更新を実行する
4. エラーハンドリングを挟み、万が一失敗してもマクロが止まらないようにする
Sub SafeUpdateFields()
Dim fld As Field
Dim updateCount As Long
Dim errorCount As Long
updateCount = 0
errorCount = 0
‘ 画面描画を停止して処理を高速化（お作法です）
Application.ScreenUpdating = False
‘ 文書内の全フィールドを走査
For Each fld In ActiveDocument.Fields
‘ エラー監視の開始（個別のフィールドエラーでマクロを止めない）
On Error Resume Next
‘ 【罠の回避①】ロックされている場合は一時的に解除する
If fld.Locked = True Then
fld.Locked = False
End If
‘ 【罠の回避②】フィールドを個別に更新
fld.Update
‘ エラー判定
If Err.Number <> 0 Then
‘ 更新に失敗した場合の処理（ログ出力やカウントなど）
errorCount = errorCount + 1
Err.Clear ‘ エラー情報をクリア
Else
updateCount = updateCount + 1
End If
‘ エラー監視を通常に戻す
On Error GoTo 0
Next fld
‘ 画面描画を再開
Application.ScreenUpdating = True
‘ 結果報告
MsgBox “フィールドの更新が完了しました。” & vbCrLf & _
“・成功: ” & updateCount & ” 件” & vbCrLf & _
“・スキップ/エラー: ” & errorCount & ” 件”, vbInformation, “処理完了”
End Sub
コードの解説とエンジニアの知見
- `For Each fld In ActiveDocument.Fields`
Word VBAの基本中の基本ですが、オブジェクトのコレクションを安全に回す鉄則です。Rangeオブジェクトを限定して絞ることもできますが、文書全体を対象にするならこれが最も確実です。
- `fld.Locked = False` の意味
「あらかじめロックされているフィールド」は、Word自身がユーザーの誤操作や意図的な保護のために設定している場合があります。これをプログラム側で強制的に外してあげることで、「更新不可エラー」の大部分を防ぐことができます。
- `On Error Resume Next` との付き合い方
基本的には多用を避けたいエラー制御ですが、「一部の破損したフィールドのせいで、全体の大切なレポート作成マクロが止まってしまう」というビジネスの現場においては、“個別撃破で全体を止めるな”の原則に基づき、このように局所的に使うのが極めて有効です。
—
4. さらにワンランク上の実務テクニック：特定のフィールドだけを狙い撃つ
実務では、「目次だけを更新したい」「ページ番号だけを直したい」というケースがほとんどです。Wordのフィールドにはそれぞれ `Type`（種類）というプロパティが存在します。
例えば、目次（`wdFieldTOC`）だけを安全に更新したい場合は、ループの中で次のような条件分岐を挟みます。
If fld.Type = wdFieldTOC Then
‘ 目次専用の安全な処理をここに書く
fld.Update
End If
フィールドの種類（`WdFieldType`列挙体）には、`wdffieldPage`（ページ番号）や `wdFieldRef`（相互参照）などがあります。用途に応じてフィルターをかけることで、マクロの安全性と精度は劇的に向上します。
—
おわりに：ここをクリアすれば、Word VBAは怖くない！
今回は、Word VBAにおける「フィールドコードの罠」と、それを華麗に回避する安全な更新ロジックについて解説しました。
Excel VBAに比べて、Word VBAは「カーソルの位置」や「文書の構造（ストーリー）」に依存するため、最初は少し難しく感じるかもしれません。しかし、今回紹介したような「オブジェクトの状態を疑い、優しくエスコートするコード」が書けるようになれば、どんなに複雑な仕様書や契約書の自動生成も、あなたの思い通りにコントロールできるようになります。
ここをクリアしたあなたなら、もうWord VBAの基礎はバッチリです！
ぜひ明日からの実務で試してみてくださいね。あなたの自動化ライフが素晴らしいものになることを応援しています！
