Archiv des LibreOffice- und OpenOffice.org-Wiki

[ÜberSicht] [TitelIndex] [WortIndex] [SeiteFinden

(./) SO6 SO7 OOo1.0 OOo1.1 OOo 2.2.1

Eine Writer-Datei automatisiert nach PDF exportieren

sub SpeichernAlsPDF
 Dim myProps(0) as New com.sun.star.beans.PropertyValue
 myDoc = thisComponent
 oldUrl=myDoc.url
 sUrl=Left(oldUrl, Len(oldUrl) - 3) + "pdf"
 myProps(0).Name="FilterName"
 myProps(0).Value = "writer_pdf_Export"
 myDoc.storetoUrl(sUrl,myProps())
 StarDesktop.CurrentComponent.Close(false)
end Sub

Wenn das Makro in der Standard-Bibliothek im Modul Module1 steht, wird durch den folgenden Befehl auf der Kommandozeile die (Beispiel-)Datei c:\test.sxw in ein PDF-Dokument umgewandelt:

Für Windows :      soffice.exe c:\test.sxw  macro:///standard.module1.SpeichernAlsPDF

Dabei wird der Original-Name der Datei für die PDF-Datei verwendet.

Siehe auch



LizenzBedingungen | AnbieterKennzeichnung | DatenschutzErklärung | Stand: 2013-04-28