OpenOffice 2.0 - Filtername

[toni]

Hallo zusammen,

im 'Speichern unter' Dialog nutze ich:

Code: Alles auswählen

      args1(0).Name = "FilterName"
      args1(0).Value = "StarOffice XML (Calc)"

Der Aufruf sieht insgesamt so aus:

Code: Alles auswählen

Sub SpeichernUnter

Dim speicherDialog as Object
Dim dateiname As String
Dim DialogTyp(0)
Dim arg()
Dim antwort

   kPfad = ThisComponent.URL
   sPfad = DirectoryNameoutofPath(kPfad, "/")

   arg = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
   speicherDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
   With speicherDialog
'        xray speicherDialog
        .Initialize(arg())
        .appendFilter("ODS-Dateien (*.ods)","*.ods")
        .SetMultiselectionMode(False)

        .setDisplayDirectory(ConvertToURL(sPfad()))
        .SetTitle("Vergeben sie einen Namen und speichern sie das Angebot")
       '.setvalue(100,0,true)                
   End With

   antwort = speicherDialog.execute()
   If antwort = 1 Then
      datei = speicherDialog.Files(0)
      Dim args1(0) as new com.sun.star.beans.PropertyValue
      args1(0).Name = "FilterName"
      args1(0).Value = "StarOffice XML (Calc)"
      Thiscomponent.storeAsUrl(datei, args1())
   End If
End Sub

Kann es sein, dass

Code: Alles auswählen

args1(0).Value = "StarOffice XML (Calc)"

die Datei als 'OpenOffice1.0 Tabellendokument' speichert.

Habe mir dadurch wohl meine komplette Anwendung zerschossen. Alle Makrozuweisungen bezüglich der Dialoge und Button sehen jetzt anders aus.
Wo z.B. bei einem Button vorher unter Eigenschaften => Ereignisse

Code: Alles auswählen

vnd.sun.star.script:Labs.frmAllgAngaben.AngabenSpeichern?language=Basic&location=document

stand, steht jetzt

Code: Alles auswählen

document:Labs.frmAllgAngaben.AngabenSpeichern

und unter 'Zugewiesene Aktion' steht jetzt gar nichts mehr!
Sobald ich einen Dialogbutton anklicke gibt es eine Fehlermeldung(Objektvariable nicht belegt).


Ich hoffe, mir ist noch zu helfen...

Gruss

Thomas