Als PDF speichern
10.01.2023 09:10:49
Daniela
Ich weiß dass das hier ein Excel Forum ist. Ich habe ein Makro das für ein Serienbrief (Daten aus Excel) ist welches anhand von dem Makro ein PDF generiert, macht es ja auch. Aber, wie kann ich den Name, Strasse, Ort, Propriétaire und Datum (für die ich schon die Textmarken im Dokument gesetzt habe) zum Titel des PDF hinzufügen. Vielen Dank für eure Hilfe.
Sub SaveAsPDF()
On Error Resume Next
Dim filepath As String, strVersion As String, strDate As String
Set fso = CreateObject("Scripting.FileSystemObject")
With ActiveDocument
strVersion = Replace(Trim(.Bookmarks("Name").Range.Text), Chr(13), "")
strVersion = Replace(Trim(.Bookmarks("Strasse").Range.Text), Chr(13), "")
strVersion = Replace(Trim(.Bookmarks("Ort").Range.Text), Chr(13), "")
strVersion = Replace(Trim(.Bookmarks("Propriétaire").Range.Text), Chr(13), "")
strDate = Replace(Trim(.Bookmarks("Datum").Range.Text), Chr(13), "")
If Err.Number 0 Then
MsgBox "Mindestens eine benötigte Textmarke (Name, Strasse, Ort, Propriétaire, Datum) wurde nicht gefunden.", vbExclamation
Exit Sub
End If
filepath = .Path & "\" & fso.GetBasename(.Name) & " Strasse " & strVersion & " vom " & strDate & ".pdf"
.ExportAsFixedFormat filepath, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument, IncludeDocProps:=True, CreateBookmarks:=wdExportCreateHeadingBookmarks
End With
Set fso = Nothing
End Sub