Hallo,
ich habe ein Code, welches mir Werte von einer Excel in Word reinschreibt.
Nun wurde ich es gerne erweitern, so dass der Range A1,A2,A3 usw und das für alle Zellen.
In python wäre es dann sowas wie for i in range(1,24):
docTest.Bookmarks("Name").Range.Text = Range("A+i")
oder so ähnlich.
Wisst ihr wie ich es in VBA Code übersetzen kann?
Sub Makro1()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///C:\.....\test.docx")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("Name").Range.Text = Range("A24")
docTest.Bookmarks("Name2").Range.Text = Range("B24")
docTest.Bookmarks("Nr").Range.Text = Range("C24")
docTest.Bookmarks("Strecke").Range.Text = Range("D24")
docTest.Bookmarks("AUF").Range.Text = Range("E24")
docTest.Bookmarks("LKW").Range.Text = Range("F24")
docTest.Bookmarks("PKW").Range.Text = Range("G24")
docTest.Bookmarks("PKWBehinderten").Range.Text = Range("H24")
docTest.Bookmarks("PKWKurz").Range.Text = Range("I24")
docTest.Bookmarks("Bus").Range.Text = Range("J24")
docTest.Bookmarks("Reisemobil").Range.Text = Range("K24")
Set docTest = Nothing
Set appWord = Nothing
End Sub
|