https://bugs.documentfoundation.org/show_bug.cgi?id=150600

--- Comment #8 from Vas <[email protected]> ---
I have been trying to export a pdf file via Basic and I am encountering the
same problem as the OA.

I have used this as my code

Sub PDFDoc(fullPdfFileNameAndPath As string)
Dim document as object
Dim dispatcher as Object
Dim args(2) as new com.sun.star.beans.PropertyValue
Dim FilterArgs()

        document = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

        FilterArgs = Array(PropertyValue("ExportBookmarks",True), _
                PropertyValue("UseTaggedPDF",True), _
                PropertyValue("OpenBookmarkLevels",2), _
                PropertyValue("ExportPlaceholders",True), _
                PropertyValue("ConvertOOoTargetToPDFTargets",True), _
                PropertyValue("DisplayPDFDocumentTitle",True), _
                PropertyValue("InitialView",1), _
                PropertyValue("ExportBookmarksToPDFDestination",True))

        args(0).Name = "URL"
        args(0).Value = fullPdfFileNameAndPath
        args(1).Name = "FilterName"
        args(1).Value = "writer_pdf_Export"
        args(2).Name = "FilterData"
        args(2).Value = FilterArgs()

        ThisComponent.storeToURL(fullPdfFileNameAndPath, args())

end sub

along with

Function PropertyValue(n, v)
dim result as new com.sun.star.beans.PropertyValue

        result.Name = n
        result.Value = v
        PropertyValue = result

End Function

This produces a PDF file with non-working bookmarks and ToC links. I
re-recorded a macro to export a PDF file. That manual export worked and
produced working bookmarks and ToC links. I then used that macro generated code
in my Basic code and it produced a pdf file with non working links again.

There is clearly a problem with exporting a pdf file with links via Basic vs
manually exporting.

Version: 25.2.5.2 (x86) / LibreOffice Community
Build ID: 03d19516eb2e1dd5d4ccd751a0d6f35f35e08022
CPU threads: 8; OS: Windows 11 X86_64 (10.0 build 26100); UI render:
Skia/Vulkan; VCL: win
Locale: en-GB (en_GB); UI: en-GB
Calc: CL threaded

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to