Hi,
kleiner Tipp:
Do While Not EOF(1) ' Auf Dateiende abfragen.
If i > 1 Then
'hier in das Formular schreiben
ActiveDocument.FormFields("Text" mit Variable i verknüpfen).Result = DateidatenEnd If
Line Input #1, Dateidaten ' Datenzeilen lesen.
i = i + 1
Loop
Sieh Dir mal die Reihenfolge an. ;-)
Erst schreibst Du in das Feld, dann liest Du aus der Datei …
Viele Grüße
Jörg