Word97

[bani]

Hallo zusammen

Unter Office 200 funktioniert folgende Zeile:

WordApp.ActiveDocument.FormFields.item('Feld1').Result := 'test'

unter Office97 geht das nicht. Da muss ich mit der Indexnummer des Feldes arbeiten:

WordApp.ActiveDocument.FormFields.item(1).Result := 'test';

Da es aber fast unmöglich ist die Reihenfolge der Felder zu kennen, lese ich die Felder zuerst in eine TStringlist ein und mache den Zugriff über diese.

  for i := 1 to WordApp.ActiveDocument.FormFields.count do begin
    lstFields.add(WordApp.ActiveDocument.FormFields.item(i).name);
  end;

  i := lstWordFields.IndexOf('Feld1') +1;
 
  if i ] 0 then
    WordApp.ActiveDocument.FormFields.item(i).Result := 'test';
 

Das Ganze ist aber unter Word97 extrem langsam.
Kennt jemand eine andere Lösung?

Danke und