Seite 1 von 1

OO Serienbrief Ausgabe in Datei

Verfasst: Di, 26.07.2011 15:44
von Pulastor
Hallo Experten,

ich benutze ein Makro zur Sereinbrieferstellung (MailNerge )

Code: Alles auswählen

...
MailMerge.OutputType=2
 MailMerge.SaveFilter="writer_pdf_Export"
 MailMerge.SaveAsSingleFile = True
rem MailMerge.FileNameFromColumn=True
 MailMerge.Filenameprefix="Fertiger_Test"
...
Als Ergebnis entsteht eine PDF-Datei mit dem Namen "Fertiger_text0.pdf" im gleichen Verzeichnis wie das Dokument. Ich wäre über Hilfe zu folgenden problemen sehr dankbar:

1. Wie kann man die "0" im dateinamen der Ausgabedatei vermeiden ? Läßt man Filenameprefix weg, wird der Dokumntenname benutz. Aber auch dort wird eine "0" angehängt.
2. Schön wäre es, wenn ich über einen Dialog das Zielverzeichnis und den Dateinamen für den Nutzer wählbar mache. leider kenne ich bisher nur ImputBox.

MfG

Ralf

Re: OO Serienbrief Ausgabe in Datei

Verfasst: Di, 26.07.2011 20:06
von F3K Total
Hallo Ralf,
zu der "0" kann ich nix sagen, Du hast aber die Möglichkeit die Datei nach dem Mailmerge per Makro erneut zu laden, umzubenennen, abzuspeichern und die alte zu löschen.

Das Zielverzeichnis kannst Du mit diesem Code auswählen:

Code: Alles auswählen

Sub folderpicker

MyDialog=createunoservice("com.sun.star.ui.dialogs.FolderPicker")
myDialog.displaydirectory="c:\"'Startverzeichnis
if mydialog.execute= 0 then
exit sub
endif
URL_folder=mydialog.directory
URL_folder=ConvertFromUrl (URL_folder)
msgbox URL_folder

End Sub
Es gibt auch einen Befehl "FilePicker", der macht aber nach meiner Kenntnis mit OOo 3.3 unter Windows 7 Probleme.
viewtopic.php?f=8&t=49308
Gruß R

Re: OO Serienbrief Ausgabe in Datei

Verfasst: Mi, 27.07.2011 13:42
von Pulastor
Hallo,

vielen dank für die Hilfe. Die Auswahl des verzeichnisses funktioniert gut.

ochmal besten Dank

Gruß

Ralf