Wordで索引項目を一括して削除するマクロ

フィールドはWord文書にただの文字列とは違う効果を与えるための仕組みで、日付が自動的に更新される仕組みもこのフィールドが使われています。
Wordの索引は、対象となる文字列に索引項目フィールドを追加して作られます。
索引項目は「蜜柑{ XE “蜜柑”\y”みかん”}」のように表示されます。

これを一括して削除するためのマクロです。

Sub 索引項目一括削除()
For Each myfield In ActiveDocument.Fields
If myfield.Type = wdFieldIndexEntry Then
myfield.Delete
End If
Next
End Sub