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