diff options
| -rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 6c5adb9ea64a..e1f2fe076953 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -11,7 +11,7 @@ Public Source as String Public SubstFile as String Public SubstDir as String Public NoArgs() -Public FilterList(9) as String +Public TypeList(14) as String Public GoOn as Boolean Public DoUnprotect as Integer Public Password as String @@ -55,20 +55,25 @@ Dim bDisposable as Boolean Else SourceDir = Source TargetStemDir = TargetDir - FilterList(0) = "application/x-starcalc" - FilterList(1) = "application/vnd.stardivision.calc" - FilterList(2) = "application/vnd.sun.xml.calc" - FilterList(3) = "application/vnd.oasis.opendocument.spreadsheet" + TypeList(0) = "calc8" + TypeList(1) = "calc_StarOffice_XML_Calc" + TypeList(2) = "calc_StarCalc_30" + TypeList(3) = "calc_StarCalc_40" + TypeList(4) = "calc_StarCalc_50" If DialogModel.chkTextDocuments.State = 1 Then - ReDim Preserve FilterList(8) as String - - FilterList(4) = "application/x-starwriter" - FilterList(5) = "application/vnd.stardivision.writer" - FilterList(6) = "application/vnd.stardivision.writer/web" - FilterList(7) = "application/vnd.sun.xml.writer" - FilterList(8) = "application/vnd.oasis.opendocument.text" + ReDim Preserve TypeList(13) as String + + TypeList(5) = "writer8" + TypeList(6) = "writerglobal8" + TypeList(7) = "writer_StarOffice_XML_Writer" + TypeList(8) = "writer_globaldocument_StarOffice_XML_Writer_GlobalDocument" + TypeList(9) = "writer_StarWriter_30" + TypeList(10) = "writer_StarWriter_40" + TypeList(11) = "writer_globaldocument_StarWriter_40GlobalDocument" + TypeList(12) = "writer_StarWriter_50" + TypeList(13) = "writer_globaldocument_StarWriter_50GlobalDocument" End If - FilesList() = ReadDirectories(SourceDir, bRecursive, True, False, FilterList()) + FilesList() = ReadDirectories(SourceDir, bRecursive, True, False, TypeList()) TotDocCount = Ubound(FilesList(),1) + 1 End If InitializeProgressPage(DialogModel) |