OpenOffice.info

Perfekt, das "setvalue" war´s wirklich. Jetzt funktioniert´s.

Vielen Dank und Gruß
Arne

Dim Dialogtyp(0)
DialogTyp(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION

MyDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
myDialog.initialize( DialogTyp())
myDialog.enableControl(100,true)
myDialog.setvalue(100,0,true)
MyDialog.execute

Hi,

wenn ich Dich richtige verstehe willst Du das die Checkbox angekreuzt ist. Dann ist enableControl verkehrt. Damit wird die Checkbox auf aktiv oder inaktiv gesetzt. Das heißt dann ob sie verwendet werden kann oder nicht. Um die Checkbox zu markieren, muß man setvalue verwenden. Falls ich falsch liege ist in dem Beispiel auch der Code für enableControl:

[code]
Dim Dialogtyp(0)
DialogTyp(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION

MyDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
myDialog.initialize( DialogTyp())
myDialog.enableControl(100,true)
myDialog.setvalue(100,0,true)
MyDialog.execute
[/code]

mfg
Michael

Hallo zusammen.

Ich versuch gerade ein Makro zu schreiben wie es normal als "speichern unter..." bekannt ist. Dabei öffne ich den Dialog mit "FILESAVE_AUTOEXTENSION"
Leider ist blos die Checkbox für die automatische Dateinamenserweiterung nicht aktiviert. Jetzt hab ich noch herausgefunden das die über FilePickerControlAccess, und enableControl eingeschaltet werden könnte. Die Checkbox hat wohl die konstante 100.

Tcha, soweit so gut. Aber bei der Umsetzung..... hängt´s noch.

Wer kann helfen?

Gruß
Arne