Dokument als PDF automatisch ins gleiche Verzeichnis

[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

[geofi]

Hallo,

danke für die schnelle Antwort. Schade, ich hoffte ich kann das irgendwie einstellen.

Merci Georg

[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.