1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

uses 
  WordXP;

begin
  { auslesen von feldern }
  lDoc := WordApplication1.ActiveDocument; { lDoc: _Document }
  for lIdx := 1 to lDoc.Fields.Count do 
  begin
    lDocFieldName := lDoc.Fields.Item( lIdx ).Code.Text;
  end;

  { einfügen von text in die feldvariablen }
  for lIdx := 1 to lDoc.Fields.Count do
  begin
    lDoc.Fields.Item( lIdx ).Result.Text := IntToStr( lIdx ); 
  end;
end;