Datenexport aus Excel in Word pdf Format
10.10.2022 18:13:07
Blaupolanski
ich habe ein altes Makro ausgegraben, welches mir einst sehr hilfreich war und würde das gerne etwas anpassen um mir erneut Abhilfe zu verschaffen.
Ich habe damals Daten aus einem Excelsheet über Bookmarks übertragen. Dies würde ich gerne wieder tun, allerdings habe ich in meinem Makro damals die betroffene Zeile mit Hilfe einer Inputbox abgefragt.
Nun zur meiner eigentlichen Frage, ich stelle mir vor dass nicht mehr eine einzelne Zeile übertragen wird, sondern alle im Sheet enthaltenen Zeilen nacheinander eingefügt und als PDF gespeichert gespeichert werden.
Auf Deutsch also: Fülle das Musterworddokument mit den Infos aus Zeile 2, speichere das Ergebnis als PDF, schließe Word, fülle das Musterworddokument mit den Infos aus Zeile 3 usw.. bis zur letzten Zeile.
Hier wäre das Makro wie ich früher verwendet habe: Kann mir jemand sagen was ich für die Anpassungen verändern müsste?
Sub Daten_an_Word_übertragen()
Dim Zeile As Long
Dim appWord As Object
Dim docTest As Object
Zeile = InputBox("Aus welcher Zeile sollen die Daten gedruckt werden?", "Auswahl der Zeile") _ 'Ersetzen durch einen Befehl für alle Zeilen
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\Users\mustermann\Desktop\testordner\testdatei.docx")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("Name").Range.Text = Range("A" & CStr(Zeile))
docTest.Bookmarks("Bezeichnung").Range.Text = Range("F" & CStr(Zeile))
docTest.Bookmarks("Nummer").Range.Text = Range("C" & CStr(Zeile))
docTest.Bookmarks("Abteilung").Range.Text = Range("K" & CStr(Zeile))
docTest.Bookmarks("Datum").Range.Text = Range("I" & CStr(Zeile))
docTest.Bookmarks("Referent").Range.Text = Range("J" & CStr(Zeile))
docTest.Bookmarks("Version").Range.Text = Range("H" & CStr(Zeile))
docTest.Bookmarks("Ort").Range.Text = Range("K" & CStr(Zeile
Set docTest = Nothing
Set appWord = Nothing
ActiveDocument.ExportAsFixedFormat outputfilename:="C:\Users\mustermann\Desktop\Testordner" & Range("A" & CStr(Zeile)) & ".pdf", exportformat:=17 'dieser Befehl funktioniert leider noch nicht
End Sub