文書内の全てのフィールドのコードを表示・非表示する

Word文書内の全てのフィールドを明示的に表示・非表示します。
ToggleShowCodesプロパティを使うのも１つの手ですが、
表示・非表示の判断は、文書内で最初に出現したフィールドの表示状態の判断が必要なので、私は以下の方法を使っています。
全表示

For Each f In ActiveDocument.Fields

    f.ShowCodes = True

Next f

全非表示

For Each f In ActiveDocument.Fields

    f.ShowCodes = False

Next f