Filter beim Speichern
Verfasst: Di, 17.08.2010 16:05
Hallo zusammen,
ich bräuchte mal wieder Eure Hilfe:
Die Computer im Lehrerzimmer unserer Schule haben jetzt nur noch OpenOffice. Damit die Kollegen die erstellten Dateien zuhause mit Word usw. öffnen können, hat unser Systemadministrator die Ausgabe auf .doc, .xls ...usw eingestellt. Mein Programm "Rechentrainer" läuft nun mal aber nur unter Calc, wird also mit .ods gespeichert. Das Makro, das dies versucht führt aber zu einem Absturz von OpenOffice. Ich nehme an, dass ich hier einen Exportfilter benötige, der das Speichern als .ods Datei erzwingt - Leider habe ich keine Ahnung, wie ich meinen Makrocode ändern muss. Ich habe den Codeteil hier unten eingestellt. Kann mir jemand sagen, wie ich den abändern muss?
Vielen Dank für Eure Hilfe
Pit
ich bräuchte mal wieder Eure Hilfe:
Die Computer im Lehrerzimmer unserer Schule haben jetzt nur noch OpenOffice. Damit die Kollegen die erstellten Dateien zuhause mit Word usw. öffnen können, hat unser Systemadministrator die Ausgabe auf .doc, .xls ...usw eingestellt. Mein Programm "Rechentrainer" läuft nun mal aber nur unter Calc, wird also mit .ods gespeichert. Das Makro, das dies versucht führt aber zu einem Absturz von OpenOffice. Ich nehme an, dass ich hier einen Exportfilter benötige, der das Speichern als .ods Datei erzwingt - Leider habe ich keine Ahnung, wie ich meinen Makrocode ändern muss. Ich habe den Codeteil hier unten eingestellt. Kann mir jemand sagen, wie ich den abändern muss?
Code: Alles auswählen
Dim speicherDialog as Object
Dim datei, kPfad, speichername As String
Speichername="Rechentrainer_Vorname_Nachname.ods"
Dim DialogTyp(0)
Dim arg()
Dim antwort
Dim args1(0) as new com.sun.star.beans.PropertyValue
kPfad = ThisComponent.URL
arg =Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
speicherDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
With speicherDialog
.Initialize(arg())
.appendFilter("OpenDocument Tabellendokument (.ods)", "*.ods")
.SetMultiselectionMode(False)
.setDisplayDirectory(ConvertToURL(kPfad()))
.setDefaultName(Speichername)
.SetTitle("speichern)")
.SetValue(com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION, 0, true)
End With
antwort = speicherDialog.execute()
If antwort = 1 Then
datei = speicherDialog.Files(0)
Thiscomponent.storeAsUrl(datei, args1())
End If
Pit
