Word 2013 ドキュメントの SEQ フィールドのみを更新する VBA マクロを作成しています。GoTo を使用してドキュメントの最初から最後まで各 SEQ フィールドに 1 つずつアクセスするように設計し (すべて更新しない)、他のフィールド タイプを確実にスキップするようにしました。ドキュメントの最後に到達するまで、各 SEQ フィールドをループさせるのに苦労しています。ブックマークやその他のエンド マーカーに関係なく、どのドキュメントでも機能するようにしたいと考えています。
これが私がこれまでに持っているコードです（コメント付き）：
ActiveWindow.View.FieldShading = wdFieldShadingAlways 'ドキュメントの先頭に移動 Selection.HomeKey Unit:=wdStory '最初の SEQ フィールドに移動
Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:="SEQ"
' Selection.Find.ClearFormatting
'他にフィールド コードがある限り、これを更新して次のフィールド コードに移動する Do While Selection.GoToNext.wdGoToField = True Selection.Fields.Update ループ