Namen für Filter Tabellenvorlage
Verfasst: Mi, 25.06.2008 14:24
Hallo zusammen,
ich habe schon wieder eine Frage:
ich möchte, je nach Anwendung, eine Datei wahlweise als "ods" oder "ots" datei speichern
Die Zeile " .setcurrentFilter("OpenDocument Tabellenvorlage (.ots)")" wird nicht akkzeptiert. Es erfolgt die Meldung "...filter doesn´t exist". Ihr wisst doch sicher was da falsch ist.
Viele Grüße
Pit
ich habe schon wieder eine Frage:
ich möchte, je nach Anwendung, eine Datei wahlweise als "ods" oder "ots" datei speichern
Code: Alles auswählen
Sub SpeichernUnter
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()))
if testmodus="" then
.SetDefaultName("Rechentrainer" & Testmodus & " " & vorname & " " & nachname & " " & version)
.setcurrentFilter("OpenDocument Tabellendokument (.ods)")
else
.SetDefaultName("RechentrainerTest"
.setcurrentFilter("OpenDocument Tabellenvorlage (.ots)")
end if
.SetTitle("Wähle den Ordner in dem du deine Datei speichern willst (Dateiname bitte nicht ändern)")
.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
End Sub
Viele Grüße
Pit