[gelöst] Serienbriefe als pdf speichern
Verfasst: Mi, 26.04.2023 18:28
Hallo,
ich könnte etwas Hilfe bei folgendem Problem brauchen:
Ich möchte aus einem Makro einen Serienbrief starten und die Dokumente einzeln als pdf-Dateien speichern.
Mit Hilfe des Handbuchs habe ich folgendes Makro geschrieben
Mit den Auskommentierungen wie oben wird der Serienbrief erstellt und in einzelnen Writer Dateien gespeichert.
Das ist ja schon mal ein Teilerfolg.
Mit den vier auskommentierten Zeilen hatte ich gehofft die Dateien als pdf zu bekommen.
Leider bekomme ich aber folgende Fehlermeldung:
"Unzulässiger Wert oder Datentyp. Index außerhalb des definierten Bereichs."
Mit der Markierung der ersten auskommentierten Zeile.
Wenn ich nur aProps(0) auskommentiere, kommt die Fehlermeldung entsprechend für "FilterName"
Für (Nach)Hilfe bin ich dankbar!
Mit herzlichen Grüßen,
Hannes
ich könnte etwas Hilfe bei folgendem Problem brauchen:
Ich möchte aus einem Makro einen Serienbrief starten und die Dokumente einzeln als pdf-Dateien speichern.
Mit Hilfe des Handbuchs habe ich folgendes Makro geschrieben
Code: Alles auswählen
SUB Serienbriefdruck
DIM oMailMerge AS OBJECT
DIM aProps() as new com.sun.star.beans.PropertyValue
'aProps(0).Name = "URL"
'aProps(0).Value = url_pdf_out
'aProps(1).Name = "FilterName"
'aProps(1).Value = "writer_pdf_Export"
oMailMerge = createunoservice("com.sun.star.text.MailMerge")
oMailMerge.DataSourceName = "Yogakurse" ' Datenquelle
oMailMerge.DocumentURL = ConvertToUrl("D:/Datenbank/Praevention/Praeventionsbescheinigung.odt") 'Serienbriefdokument
oMailMerge.CommandType = 0 '0=Tabelle, 1=Abfrage, 3=SQL
oMailMerge.Command = "Praeventionsbescheinigungen" 'Name der Tabelle, Abfrage oder SQL-Commando
'oMailMerge.Filter = """Geschlecht""='m'" 'Filter
oMailMerge.OutputType = 2 'Ausgabetypen Drucker (1), Datei (2) und Mail (3)
oMailMerge.OutputUrl = ConvertToUrl("D:/Datenbank/Praevention") ' Speicherort
oMailMerge.FileNameFromColumn = True 'Dateiname aus Tabelleneintrag
oMailMerge.Filenameprefix = "Dateiname" 'Feld für Dateinamen
oMailMerge.execute(aProps())
END SUB
Das ist ja schon mal ein Teilerfolg.
Mit den vier auskommentierten Zeilen hatte ich gehofft die Dateien als pdf zu bekommen.
Leider bekomme ich aber folgende Fehlermeldung:
"Unzulässiger Wert oder Datentyp. Index außerhalb des definierten Bereichs."
Mit der Markierung der ersten auskommentierten Zeile.
Wenn ich nur aProps(0) auskommentiere, kommt die Fehlermeldung entsprechend für "FilterName"
Für (Nach)Hilfe bin ich dankbar!
Mit herzlichen Grüßen,
Hannes