Macros/General/006

This page is a translated version of the page Macros/General/006 and the translation is 100% complete.

TDF LibreOffice Document Liberation Project Blogs gemeenschap Weblate Nextcloud Redmine Ask LibreOffice Doneren

Other languages:

Beschrijving

Een hybride PDF is een bestand dat als PDF gelezen kan worden maar wat wat een document in PDF-formaat bevat dat je met LibreOffice kunt wijzigen. Je kunt met aanmaken met Bestand ▸ Exporteren als ▸ Exporteren als PDF....

De volgende macro toont hoe je dit doet in LibreOffice Basic. Het array propFich in dit voorbeeld specificeert het filter om (calc_pdf_Export) te gebruiken met de geselecteerde opties. Het array filterProps specificeert de tekst die geëxporteerd moet worden en bevat een switch IsAddStream om te bepalen of de export al moet gebeuren.

Code

In LibreOffice Basic:

Option Explicit

Sub ExportPDFinHybridFormat
    '''Het nu getoonde blad in Calc exporteren als hybride PDF'''

    Dim filterData(1) As New com.sun.star.beans.PropertyValue
    Dim filterProps(1) As New com.sun.star.beans.PropertyValue
    Dim fileAddress As String

    'aanmaken prop-vals in filterData, dit wordt later toegevoegd aan filterProps
    filterData(0).Name = "Selection"
    filterData(0).Value = ThisComponent.CurrentController.ActiveSheet
    filterData(1).Name = "IsAddStream"
    filterData(1).Value = True

    'aanmaken prop-vals in filterProps, dit wordt later toegevoegd in de exporteer functie storeToURL
    filterProps(0).Name = "FilterName"
    filterProps(0).Value = "calc_pdf_Export"
    filterProps(1).Name = "FilterData"
    filterProps(1).Value = filterData()

    fileAddress = convertToURL("/home/<user>/Documents/test.pdf")
    ThisComponent.storeToURL(fileAddress, filterProps())

End Sub ' ExportPDFinHybridFormat

Calc-bestand om de macro te testen

Download ODS-bestand met deze macro

NB: