Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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
Anzeige
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

Anzeige

374 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige