Apache OpenOffice Community Forum

Code: Select all

sub Main
    dim document   as object
    dim dispatcher as object

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

    dim args(3) as new com.sun.star.beans.PropertyValue
    args(0).Name = "URL"
rem... this needs to change to "file:///home/user/${doc_name} pg ${page_num}.png"
    args(0).Value = "file:///home/user/asdfghj.png"
    args(1).Name = "FilterName"
rem... this needs to change to Writer
    args(1).Value = "calc_png_Export"
    args(2).Name = "FilterData"
    DV = com.sun.star.beans.PropertyState.DIRECT_VALUE
    args(2).Value = Array(Array("PixelWidth",0,2550,DV),Array("PixelHeight",0,3300,DV))
    args(3).Name = "SelectionOnly"
    args(3).Value = false
    dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args())
end sub

Code: Select all

Sub FilterList
oFF = createUnoService( "com.sun.star.document.FilterFactory" ) 
oFilterNames = oFF.getElementNames() 

' Create a Writer doc and save the filter names to it. 
oDoc = StarDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, Array() ) 
oText = oDoc.getText() 
oCursor = oText.createTextCursor() 
oCursor.gotoEnd( False ) 

' Print the filter names into a Writer document. 
For i = LBound( oFilterNames ) To UBound( oFilterNames ) 
  oText.insertString( oCursor, oFilterNames(i), False ) 
  oText.insertControlCharacter( oCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False ) 
Next 
End Sub

Code: Select all

    sub Main
        dim document   as object
        dim dispatcher as object

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

        dim args(3) as new com.sun.star.beans.PropertyValue
        args(0).Name = "URL"
    rem... this needs to change to "file:///home/user/${doc_name} pg ${page_num}.png"
        args(0).Value = ConvertToURL("C:\Users\XXX\Documents\WriterPNG.png")
        args(1).Name = "FilterName"
    rem... this needs to change to Writer
        args(1).Value = "writer_png_Export"
        args(2).Name = "FilterData"
        DV = com.sun.star.beans.PropertyState.DIRECT_VALUE
        args(2).Value = Array(Array("PixelWidth",0,2550,DV),Array("PixelHeight",0,3300,DV))
        args(3).Name = "SelectionOnly"
        args(3).Value = false
        dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args())
    end sub

Code: Select all

' ╔══════════════════════════════════════════════════════════════════════════════╗
' ║ Export all pages of a Writer document in PNG format.                         ║█
' ╚══════════════════════════════════════════════════════════════════════════════╝█
'  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀

Sub convertWriter2PNG()
 Dim   myViewCursor As Object
 Dim     myPageName As String, myString(255) As String, myFile As String, myFolder As String, myName As String
 Dim              i As Integer
 Dim   myPixelWidth As Long, myPixelHeight As Long

 Dim propsFiltre (1) As New com.sun.star.beans.PropertyValue
 Dim props       (1) As New com.sun.star.beans.PropertyValue

 myPageName = "_page_"

 ' Resolution choice (for an A4-Portrait document):
   myPixelWidth =  793 : myPixelHeight = 1122 '  96 DPI.
 ' myPixelWidth = 2481 : myPixelHeight = 3507 ' 300 DPI.
 ' myPixelWidth = 4962 : myPixelHeight = 7014 ' 600 DPI.

 propsFiltre(0).Name = "PixelWidth"  : propsFiltre(0).Value = myPixelWidth
 propsFiltre(1).Name = "PixelHeight" : propsFiltre(1).Value = myPixelHeight
 
 props      (0).Name = "FilterName"  : props      (0).Value = "writer_png_Export"
 props      (1).Name = "FilterData"  : props      (1).Value = propsFiltre()

 myString = split(thisComponent.url, "/") :           i = uBound(myString)
   myFile = myString(i)                   : myString(i) = ""
 myFolder = join (myString()       , "/")

 myString = split(           myFile, ".") :           i = uBound(myString)
                                            myString(i) = ""
   myName = join (myString()       , ".") :      myName = left(myName, len(myName) - 1)

 myViewCursor = thisComponent.CurrentController.ViewCursor
 myViewCursor.jumpToLastPage

 For i = myViewCursor.page to 1 step -1
  thisComponent.storeToURL(myFolder & myName & myPageName & Format(i, "000") & ".png", props())
  myViewCursor.jumpToPreviousPage 
 Next i

 myViewCursor.jumpToFirstPage : msgBox("Done!")
End Sub