txt & Word

[steve]

ok auch geklärt!

Wenn wen der Algorithmus interessiert:

Sub AutoExec()
'
' Declarationen.AutoExec Makro
' Makro erstellt am 27.07.2007 von Ferialpraktikant SIA2
'
Dim i As Integer
Dim Text As String
i = 1
Open "C:/Daten.txt" For Input As #1    ' Datei zum Einlesen öffnen.

Do While Not EOF(1)    ' Auf Dateiende abfragen.
    Line Input #1, Dateidaten    ' Datenzeilen lesen.
    Text = "Text" & CStr(i)
    'hier in das Formular schreiben
    ActiveDocument.FormFields(Text).Result = Dateidaten
    i = i + 1
 Loop

Close #1    ' Datei schließen.

End Sub

PS: die Textmarker lauten Text1, Text2,...

LG steve