Jörg Lorenz: txt & Word

Beitrag lesen

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 = Dateidaten

End 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