View | Details | Raw Unified | Return to issue 100686
Collapse All | Expand All

(-)wizards.orig/source/euro/AutoPilotRun.xba (-13 / +18 lines)
Lines 11-17 Link Here
11 
Public SubstFile as String
 11 
Public SubstFile as String
12 
Public SubstDir as String
 12 
Public SubstDir as String
13 
Public NoArgs()
 13 
Public NoArgs()
14 
Public FilterList(9) as String
 14 
Public TypeList(14) as String
15 
Public GoOn as Boolean
 15 
Public GoOn as Boolean
16 
Public DoUnprotect as Integer
 16 
Public DoUnprotect as Integer
17 
Public Password as String
 17 
Public Password as String
Lines 55-74 Link Here
55 
		Else
 55 
		Else
56 
			SourceDir = Source
 56 
			SourceDir = Source
57 
			TargetStemDir = TargetDir
 57 
			TargetStemDir = TargetDir
58 
			FilterList(0) = "application/x-starcalc"
 58 
			TypeList(0) = "calc8"
59 
			FilterList(1) = "application/vnd.stardivision.calc"
 59 
			TypeList(1) = "calc_StarOffice_XML_Calc"
60 
			FilterList(2) = "application/vnd.sun.xml.calc"
 60 
			TypeList(2) = "calc_StarCalc_30"
61 
			FilterList(3) = "application/vnd.oasis.opendocument.spreadsheet"
 61 
			TypeList(3) = "calc_StarCalc_40"
62 
			TypeList(4) = "calc_StarCalc_50"
62 
			If DialogModel.chkTextDocuments.State = 1 Then
 63 
			If DialogModel.chkTextDocuments.State = 1 Then
63 
				ReDim Preserve FilterList(8) as String
 64 
				ReDim Preserve TypeList(13) as String
64
65 

            

            

              65
              
				FilterList(4) = "application/x-starwriter"


              66
              
				TypeList(5) = "writer8"

            

            

              66
              
				FilterList(5) = "application/vnd.stardivision.writer"


              67
              
				TypeList(6) = "writerglobal8"

            

            

              67
              
				FilterList(6) = "application/vnd.stardivision.writer/web"


              68
              
				TypeList(7) = "writer_StarOffice_XML_Writer"

            

            

              68
              
				FilterList(7) = "application/vnd.sun.xml.writer"


              69
              
				TypeList(8) = "writer_globaldocument_StarOffice_XML_Writer_GlobalDocument"

            

            

              69
              
				FilterList(8) = "application/vnd.oasis.opendocument.text"


              70
              
				TypeList(9) = "writer_StarWriter_30"

            

            

              
              

              71
              
				TypeList(10) = "writer_StarWriter_40"

            

            


              72
              
				TypeList(11) = "writer_globaldocument_StarWriter_40GlobalDocument"

            

            


              73
              
				TypeList(12) = "writer_StarWriter_50"

            

            


              74
              
				TypeList(13) = "writer_globaldocument_StarWriter_50GlobalDocument"

            

        

          70
          
			End If

          75
          
			End If

        

          
            

              71
              
			FilesList() = ReadDirectories(SourceDir, bRecursive, True, False, FilterList())


              76
              
			FilesList() = ReadDirectories(SourceDir, bRecursive, True, False, TypeList())

            

        

          72
          
			TotDocCount = Ubound(FilesList(),1) + 1

          77
          
			TotDocCount = Ubound(FilesList(),1) + 1

        

        

          73
          
		End If

          78
          
		End If

        

        

          74
          
		InitializeProgressPage(DialogModel)

          79
          
		InitializeProgressPage(DialogModel)

        






  

  Return to issue 100686