Danke für die Antwort. Irgendwie aber kriege ich es nicht hin es ans laufen zu bringen mit dem obigen Vorschlag.
Ich habe sowas versucht:
Sub Makro1()
Dim appWord As Object
Dim docTest As Object
Dim Zeile As Integer
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///C:\Users\goma\Documents\Asfinag\test.docx")
appWord.Visible = True
docTest.Activate
Zeile = 0
For i = 0 To 10:
Zeile = Zeile + i
docTest.Bookmarks("Name").Range.Text = Range("A" & CStr(Zeile))
docTest.Bookmarks("Name2").Range.Text = Range("B" & CStr(Zeile))
docTest.Bookmarks("Nr").Range.Text = Range("C" & CStr(Zeile))
docTest.Bookmarks("Strecke").Range.Text = Range("D" & CStr(Zeile))
docTest.Bookmarks("AUF").Range.Text = Range("E" & CStr(Zeile))
docTest.Bookmarks("LKW").Range.Text = Range("F" & CStr(Zeile))
docTest.SaveAs2 Filename:="C:\Users\goma\Documents\Asfinag\Auswertung_v4\" & CStr(Zeile) & ".docx"
Set docTest = Nothing
Set appWord = Nothing
Next
End Sub
Aber dies funktioniert nicht, leider. Wo wäre dort der Fehler? Danke im Vorraus
|