Translations:Macros/Basic/Documents/56/en
'com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION_PASSWORD = 2
With dlg_save .Initialize(Array(2)) .AppendFilter("Text documents ODF (.odt)", "*.odt" ) .AppendFilter("Spreadsheet ODF (.ods)", "*.ods" ) End With