diff options
| -rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 8215bff2c530..2ca883eb5fa6 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -310,7 +310,7 @@ Dim sNoDirMessage as String bIsValid = False End If Else - If Instr(1, sLocMimeType, "spreadsheet") = 0 Then + If (Instr(1, sLocMimeType, "spreadsheet") = 0) And (Instr(1, sLocMimeType, "calc")) = 0 Then Msgbox(sMsgFileInvalid, 48, sMsgDLGTITLE) bIsValid = False End If @@ -377,7 +377,7 @@ Sub CallFilePicker() FilterNames(9,0) = oUIKey.Classes.GetByName("sw3to5templ").DisplayName Filternames(9,1) = "*.vor" FilterNames(10,0) = oTypes.GetByName("writer8").UIName - FilterNames(10,1) = "*.oot" + FilterNames(10,1) = "*.odt" FilterNames(11,0) = oTypes.GetByName("writer8_template").UIName FilterNames(11,1) = "*.ott" Else @@ -392,7 +392,7 @@ Sub CallFilePicker() FilterNames(3,0) = oUIKey.Classes.GetByName("sc345templ").DisplayName Filternames(3,1) = "*.vor" FilterNames(4,0) = oTypes.GetByName("calc8").UIName - Filternames(4,1) = "*.oos" + Filternames(4,1) = "*.ods" FilterNames(5,0) = oTypes.GetByName("calc8_template").UIName Filternames(5,1) = "*.ots" GetFileName(DialogModel.txtSource, Filternames()) |