Ich habe bereits herausgefunden wie man mit VBA eine Excel Tabelle in ein Word-Dokument integriert und anschliessend eine PDF erstellt. Nun möchte ich aber, dass das Word-Dokument sowie die PDF umbenennt werden und zwar soll der Name mit "Offerte" beginnen + Kundenname von Tabelle "Offertenkalkulation" Zelle B3. Könnt ihr mir da weiterhelfen?
Hier der aktuelle Stand:
Sub NachWordKopieren()
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Add("C:\Users\Nadia\Desktop\Homajun\Test\Offerte.docx") 'Pfad und _
_
Name des bestehenden Dokuments erfassen
'*** öffnet die Datei selbst ***
appWord.Visible = True
ThisWorkbook.Sheets("Offerte").Range("A1:D53").Copy '*** Tabellenname und Range anpassen ***
doc.Paragraphs(53).Range.Paste '*** Zeile bestimmen - Tabelle rein ***
doc.SaveAs "C:\Users\Nadia\Desktop\Homajun\Test\Offertentest.pdf", 17 '*** Dokumentname und _
Pfad definieren und speichern ***
'*** Aufräumen ***
Set appWord = Nothing
Set doc = Nothing
End
End Sub