ich erstelle eine Word Datei, füge Felder aus Excel hinzu und möchte die Datei gerne dann als PDF speichern. Aber bei .ExportAsFixedFormat bleibt es immer hängen.
Ich hab die Stelle mal Dick gemacht. Könnt ihr mir da weiterhelfen?
Danke schon mal im Voraus.
Daniel
Sub rechnung_erstellen()
Dim Rechnung As Object
Dim appWord As Object
Dim NeuerName As String
Dim Dateiname_doc As String
Dim Dateiname_pdf As String
Dateiname_doc = ThisWorkbook.Path & "/" & Range("AD3").Value & "_Rechnung " & Range("T27") & ".docx"
Dateiname_pdf = ThisWorkbook.Path & "/" & Range("AD3").Value & "_Rechnung " & Range("T27") & ".pdf"
Set appWord = CreateObject("Word.Application")
With appWord
Set Rechnung = appWord.Documents.Add(ThisWorkbook.Path & "\Muster Rechnungsschreiben_DB.docx")
With Rechnung
.Activate
.Bookmarks("Ansprechpartner").Range.Text = Range("Ansprechpartner")
.Bookmarks("PSP").Range.Text = Range("PSP")
.Bookmarks("Projektdaten").Range.Text = Range("Projektdaten")
.Bookmarks("Anfrage").Range.Text = Range("Projektdaten")
.Bookmarks("Ansprechpartner2").Range.Text = Range("Ansprechpartner")
.Bookmarks("Rechnungssumme").Range.Text = Range("Rechnungssumme")
.Bookmarks("Rahmenvertrag").Range.Text = Range("Rahmenvertrag")
.Bookmarks("Auftragsnummer").Range.Text = Range("Auftragsnummer")
.SaveAs Dateiname_doc
.ExportAsFixedFormat outputfilename:=Dateiname_pdf, exportformat:=wdExportFormatPDF
End With
End With
Set Rechnung = Nothing
Set appWord = Nothing
End Sub