Als PDF speichern

Forumthread: Als PDF speichern

Als PDF speichern

10.01.2023 09:10:49

Daniela

Schönen guten Tag
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

lg Daniela

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Als PDF speichern

10.01.2023 13:29:09

martin

AW: Als PDF speichern

10.01.2023 13:29:09

martin

Hi,
irgendwie sieht es so aus, als ob die teile, die nicht im Namen der PDF auftauchen, einfach ratzfatz überschrieben werden, durch den jeweils folgenden wert deiner strVersion Variable. Probier doch den code hier: (hoffe es war die richtige Vermutung - testdaten helfen manchmal, falls es doch nicht klappt)


Sub SaveAsPDF()
On Error Resume Next
Dim filepath As String, strVersion As String, strDate As String
Set fso = CreateObject("Scripting.FileSystemObject")
With ActiveDocument
strName = Replace(Trim(.Bookmarks("Name").Range.Text), Chr(13), "")
strStreet = Replace(Trim(.Bookmarks("Strasse").Range.Text), Chr(13), "")
strCity = Replace(Trim(.Bookmarks("Ort").Range.Text), Chr(13), "")
strPropriétaire = 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
strVersion = strName & " " & strStreet & " " & strCity & " " & strPropriétaire & " " & strDate
filepath = .Path & "\" & fso.GetBasename(.Name) & " " & strVersion & ".pdf"
.ExportAsFixedFormat filepath, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument, IncludeDocProps:=True, CreateBookmarks:=wdExportCreateHeadingBookmarks
End With
Set fso = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Als PDF speichern

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread