Field.Next (Word)

Gibt das nächste Objekt in der Auflistung zurück.

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