1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Sub UpdateAllFields()
   Dim aStory As Range
   Dim aField As Field

   For Each aStory In ActiveDocument.StoryRanges
      For Each aField In aStory.Fields
         aField.Update
      Next aField
   Next aStory
End Sub					

1:
2:
3:
4:
5:
6:

For i:=0 to wDoc.StoryRanges.Count do begin
  // Nur hier komme ich einfach nicht auf die einzelnen Felder:
  For j:=0 to ??? do begin
    // ???
  end;
end;					

1:

For i:=0 to wDoc.StoryRanges.Count-1 do begin					

1:

For i:=1 to wDoc.StoryRanges.Count do begin					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Var Astory,Afield:variant;
For i:=1 to wDoc.StoryRanges.Count do 
  begin
    astory:=wDoc.StoryRanges.item(i);
    for j:=1 to astory.fields.count do
      begin
        Afield:=astory.fields.item(j);
        afield.update; 
      end;
  end;