Danke für eure Antworten!
Ich hab jetzt mit eurer Hilfe einen Code gebastelt der sogar funktioniert. Nur weiß ich nicht, wie man eine Zahl zu einem String hinzufügt?!
weiß das wer von euch?
So sieht dann der Code aus:
Sub AutoExec()
'
' Declarationen.AutoExec Makro
' Makro erstellt am 27.07.2007 von Ferialpraktikant SIA2
'
i = 0
Open "C:/Daten.txt" For Input As #1 ' Datei zum Einlesen öffnen.
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
Close #1 ' Datei schließen.
End Sub
mfg