Field.Next (Word)

Returns the next object in the collection.

If ActiveDocument.Sections(1).Range.Fields.Count >= 1 Then 
 Set myField = ActiveDocument.Fields(1) 
 While Not (myField Is Nothing) 
 If myField.Type <> wdFieldFillIn Then myField.Update 
 Set myField = myField.Next 
 Wend 
End If