OpenOffice.info

Code: Alles auswählen

Option Explicit

dim document as object
dim dispatcher as object
dim args1(3) as new com.sun.star.beans.PropertyValue

dim sFilePickerArgs
dim auswahl
Dim antwort
dim tc As Object
dim pdf_datei As String


Sub Main
	tc = ThisComponent
	document   = tc.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	'Dateiauswahl
	sFilePickerArgs = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
	auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
	With auswahl
		.initialize(sFilePickerArgs())
		.SetMultiselectionMode(False)
		.appendFilter("PDF-Dokument (pdf)", "*.pdf")
		.setDefaultName(tc.Title)
	End With
	antwort = auswahl.execute
	if antwort = 1 then
			pdf_datei = auswahl.Files(0)
		Else
			Exit Sub
	end if
	
	rem ----------------------------------------------------------------------
	
	args1(0).Name = "URL"
	args1(0).Value = pdf_datei
	args1(1).Name = "FilterName"
	args1(1).Value = "writer_pdf_Export"
	args1(2).Name = "FilterData"
	args1(2).Value = ""
	args1(3).Name = "SelectionOnly"
	args1(3).Value = false
	
	Dim x
	x = dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())
	
	If x.Result = False Then Exit Sub
	
	Wait 100
	
	Dim starten as object 
	starten = createUnoService("com.sun.star.system.SystemShellExecute") 
	starten.execute(ConvertToUrl(pdf_datei), "", 0)

End Sub