Hallo Excelprofis,
im Netz habe ich folgende Lösung gefunden um Daten aus Excel in ein Worddokument zu exportieren.
Das funktioniert auch soweit gut.
Jetzt hätte ich gern noch ein paar Anpassungen.
Das Worddokument soll immer im Pfad der Excelmappe gesucht werden.
Nach Export der Daten soll dass Worddokument, am besten als .pdf, gespeichert werden. Wenn möglich, unter dem Namen "Test-"Inhalt Zelle A53"".
Kann mir bitte Jemand den Code umschreiben. Hab leider nicht viel Ahnung von VBA.
Vielen Dank fürs lesen und die Hilfe.
MFG, Andreas
Sub Makro1()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///D:\Test\Test02\Test.doc")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("Name").Range.Text = Cells(53, 1).Value
docTest.Bookmarks("Straße").Range.Text = Cells(54, 1).Value
docTest.Bookmarks("Ort").Range.Text = Cells(56, 1).Value
docTest.Bookmarks("Betrag").Range.Text = Cells(43, 6).Value
Set docTest = Nothing
Set appWord = Nothing
End Sub