Export Writer page as jpeg

[eBookLuke]

Hi all,

I need to export the first page of a Writer document as jpeg, via Basic macro, in the same way I can do it by using the menu File>Export and choosing "jpeg" as filetype.

I found this code, but doesn't works with Writer:

Code: Select all

Sub ExportJPG
	Dim Props(1) as New com.sun.star.beans.PropertyValue
	oSM = GetProcessServiceManager
	ExportSrv = oSM.createInstance("com.sun.star.drawing.GraphicExportFilter")
	oDPages = oTextDoc.getDrawPage()
	oPage = oDPages.getByIndex(1)
	ExportSrv.setSourceDocument(oTextDoc)
	Props(0).Name = "MediaType"
	Props(0).Value = "image/jpeg"
	Props(1).Name = "URL"
	Props(1).Value = "file:///C:/Exported.jpg"
	ExportSrv.filter(Props)
End Sub

Someone can help me?

Thanks

Luke

[F3K Total]

Hi,

Writer document as jpeg, via Basic macro, in the same way I can do it by using the menu File>Export and choosing "jpeg" as filetype

For sure?
I can't find "jpeg" as an export Option in Writer:

x.png (6.18 KiB) Viewed 4478 times

That's all
R

[eBookLuke]

True, I confused Apache OpenOffice with LibreOffice that has this feature…

Anyway, suggestions about exporting Writer pages in jpg?

[Ahham]

Hello,

for me it works: in draws

Code: Select all

Sub ExportJPG
Dim oDPages As Object
dim oDoc
Dim oSm
dim ExportSrv
dim oPage
Dim URL As String
   Dim Props(1) as New com.sun.star.beans.PropertyValue
   oDoc = ThisComponent
   oSM = GetProcessServiceManager
   ExportSrv = oSM.createInstance("com.sun.star.drawing.GraphicExportFilter") 
   oPage = oDoc.DrawPages(0)
   ExportSrv.setSourceDocument(oPage)
   URL = "C:\Example\Exported2.jpg"
   Props(0).Name = "MediaType"
   Props(0).Value = "image/jpeg"
   Props(1).Name = "URL"
   Props(1).Value = ConvertToUrl(URL)
   ExportSrv.filter(Props)
End Sub