--- wizards/source/euro/AutoPilotRun.xba	2010-06-08 11:34:12.000000000 +0100
+++ wizards/source/euro/AutoPilotRun.xba	2010-06-08 12:54:34.000000000 +0100
@@ -11,7 +11,7 @@
 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 @@
 		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)