OO Serienbrief Ausgabe in Datei

[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

[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

[Pulastor]

Hallo,

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

ochmal besten Dank

Gruß

Ralf