Zkoušel jsem vytvořit makro pro writer, které otevře diag okno pro přímý export do PDF a bude předvyplněný název dle určitého textu v souboru- například číslo zakázky. Ale bohužel se mi to nepovedlo. Dokázal by to někdo prosím ? Děkuji
Zde je makro pro export do PDF s možnostmi které máte nastavené při exportu přes Soubor > Exportovat jako > Exportovat do PDF. Akorát si nějak musíte přenastavit proměnou sFile dle vaší potřeby, připadně i sDir.
Sub exportPDF
on local error goto chyba
dim oDoc as object, document as object, dispatcher as object, sInitDir$, sDir$, sUrl$, sFile$
oDoc=ThisComponent
rem adresář kam se soubor uloží
sInitDir=CreateUnoService("com.sun.star.util.PathSettings").Work 'výchozí adresář zadaný v: Nástroje > Možnosti > LibreOffice > Cesty > Dokumenty
sDir=convertToUrl(sInitDir) 'adresář kam se bude PDF ukládat
rem název souboru
sFile="mujSoubor" 'jméno PDF souboru
rem export do PDF
sUrl=sInitDir & "/" & sFile & ".pdf" 'url ukládaného PDF
document=oDoc.CurrentController.Frame
dispatcher=createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name="URL"
args1(0).Value=sUrl
args1(1).Name="FilterName"
args1(1).Value="writer_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
exit sub
chyba:
msgbox("line: " & Erl & chr(13) & Err & ": " & Error, 16, "exportPDF")
End Sub