Seite 1 von 1
Dokument als PDF automatisch ins gleiche Verzeichnis
Verfasst: Fr 20. Mai 2016, 14:03
von geofi
Hallo,
wenn ich aus einer bestehenden und gespeicherten z.B. odt-Datei ein PDF erzeugen möchte, wünsche ich mir, dass standardmäßig der gleiche Dateiname (außer der Endung die ja dann pdf sein soll) und das gleiche Verzeichnis für PDF-Dateiname und -speicherort angeboten wird.
Kann ich das so irgendwie in LO einstellen?
Danke schon im Voraus
Georg
Re: Dokument als PDF automatisch ins gleiche Verzeichnis
Verfasst: Fr 20. Mai 2016, 16:25
von geofi
Hallo,
danke für die schnelle Antwort. Schade, ich hoffte ich kann das irgendwie einstellen.
Merci Georg
Re: Dokument als PDF automatisch ins gleiche Verzeichnis
Verfasst: Sa 21. Mai 2016, 01:48
von musikai
Du kannst Dir eine eigene Toolbar und Button erststellen und dieses Makro darauf legen:
Code: Alles auswählen
sub SaveAsPDF
If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then GlobalScope.BasicLibraries.LoadLibrary("Tools")
if ThisComponent.hasLocation() then
workdirfull = DirectoryNameoutofPath(ThisComponent.getURL(),"/") & "/"
docname = GetFileNameWithoutExtension(ThisComponent.getURL(),"/")
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args4(2) as new com.sun.star.beans.PropertyValue
args4(0).Name = "URL"
args4(0).Value = workdirfull & docname & ".pdf"
args4(1).Name = "FilterName"
args4(1).Value = "writer_pdf_Export"
args4(2).Name = "FilterData"
args4(2).Value = ""
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args4())
else
msgbox "Please save file first!"
end if
end sub
Es exportiert ein PDF mit dem .odt-Namen (als .pdf) in das gleiche Verzeichnis. Mit den Einstellungen, wie sie für den PDF-Export eingestellt sind. Vorhandene PDFs werden direkt überschrieben.