Upgrading Import Wizard

[RGB]

Even if AOO can read the new msoffice files, the import wizard do not recognise them:

Bug 95102 - Document Converter wizard doesn't see Excel 2007 .xlsx

This is also an issue on which many people can help: knowing the AOO basic "dialect" is enough to make the difference, and we have here many skilled macro programmers

Some volunteers? It is too late for 3.4.1, but maybe for 3.5...

[hanya]

I adapted like as follows but it seems filters for MS Office 2007 have some problems. Current ImportWizard uses auto-detection of imported file format and it failed on these files. And also the result of the conversion from pptx to otp was bad, no background image with different background color with gradation. The result was the same when I import the file and store into otp file by hand. So, this is not the time to introduce them into the import wizard in my opinion.

Code: Select all

Index: wizards/source/importwizard/DialogModul.xba
===================================================================
--- wizards/source/importwizard/DialogModul.xba	(revision 1387223)
+++ wizards/source/importwizard/DialogModul.xba	(working copy)
@@ -89,7 +89,7 @@
 ' Applications(X,8) = "File:///..." 	(TargetUrl of the templates)
 ' Applications(X,9) = 0				    (Key to the original Index of the Applications)
 
-Public Const SBMAXEXTENSIONLENGTH = 15
+Public Const SBMAXEXTENSIONLENGTH = 17
 
 
 Sub FillStep_Welcome()
@@ -412,40 +412,40 @@
 	sValueName(2) = ""
 
 ' See definition of Filtername-Array about meaning of fields
-	MSFilterName(0,0) = "doc"
-	MSFilterName(0,1) = "writer8"
-	MSFilterName(0,2) = "odt"
+	MSFilterName(0,0) = "doc|docx|docm"
+	MSFilterName(0,1) = "writer8|writer8|writer8"
+	MSFilterName(0,2) = "odt|odt|odt"
 	MSFilterName(0,3) = sMSDocumentCheckBox(0)
 	MSFilterName(0,4) = "Word"
 	
 
-	MSFilterName(1,0) = "xls"
-	MSFilterName(1,1) = "calc8"
-	MSFilterName(1,2) = "ods"
+	MSFilterName(1,0) = "xls|xlsx|xlsm"
+	MSFilterName(1,1) = "calc8|calc8|calc8"
+	MSFilterName(1,2) = "ods|ods|ods"
 	MSFilterName(1,3) = sMSDocumentCheckBox(1)
 	MSFilterName(1,4) = "Excel"
 
-	MSFilterName(2,0) = "ppt|pps"
-	MSFilterName(2,1) = "impress8|impress8"
-	MSFilterName(2,2) = "odp|odp"
+	MSFilterName(2,0) = "ppt|pps|pptx|pptm"
+	MSFilterName(2,1) = "impress8|impress8|impress8|impress8"
+	MSFilterName(2,2) = "odp|odp|odp|odp"
 	MSFilterName(2,3) = sMSDocumentCheckBox(2)
 	MSFilterName(2,4) = "PowerPoint"
 
-	MSFilterName(3,0) = "dot"
-	MSFilterName(3,1) = "writer8_template"
-	MSFilterName(3,2) = "ott"
+	MSFilterName(3,0) = "dot|dotx|dotm"
+	MSFilterName(3,1) = "writer8_template|writer8_template|writer8_template"
+	MSFilterName(3,2) = "ott|ott|ott"
 	MSFilterName(3,3) = sMSTemplateCheckBox(0)
 	MSFilterName(3,4) = "Word"	
 	
-	MSFilterName(4,0) = "xlt"
-	MSFilterName(4,1) = "calc8_template"
-	MSFilterName(4,2) = "ots"
+	MSFilterName(4,0) = "xlt|xltx|xltm"
+	MSFilterName(4,1) = "calc8_template|calc8_template|calc8_template"
+	MSFilterName(4,2) = "ots|ots|ots"
 	MSFilterName(4,3) = sMSTemplateCheckBox(1)
 	MSFilterName(4,4) = "Excel"	
 
-	MSFilterName(5,0) = "pot"
-	MSFilterName(5,1) = "impress8_template"
-	MSFilterName(5,2) = "otp"
+	MSFilterName(5,0) = "pot|potx|potm"
+	MSFilterName(5,1) = "impress8_template|impress8_template|impress8_template"
+	MSFilterName(5,2) = "otp|otp|otp"
 	MSFilterName(5,3) = sMSTemplateCheckBox(2)
 	MSFilterName(5,4) = "PowerPoint"	
 End Sub
Index: wizards/source/importwizard/FilesModul.xba
===================================================================
--- wizards/source/importwizard/FilesModul.xba	(revision 1387223)
+++ wizards/source/importwizard/FilesModul.xba	(working copy)
@@ -456,7 +456,7 @@
 		FirstList(i,1) = SecList(s,1)
 		sLocExtension = lcase(FirstList(i,1))
 		Select Case sLocExtension
-			Case "sdw", "sdc", "sda", "sdd", "smf", "sgl", "doc", "xls", "ppt", "sxi" , "sxw" , "sxd" , "sxg" , "sxm" , "sxc" , "pps"
+			Case "sdw", "sdc", "sda", "sdd", "smf", "sgl", "doc", "xls", "ppt", "sxi" , "sxw" , "sxd" , "sxg" , "sxm" , "sxc" , "pps" , "docx" , "docm" , "xlsx" , "xlsm" , "xlsb" , "pptx" , "pptm"
 				AbsDocuFound = AbsDocuFound + 1
 			Case else
 				AbsTemplateFound = AbsTemplateFound + 1

[RGB]

Thanks for your effort! Indeed, it seems that the import filter are not good. May I ask you for one step more? I think it would be very important to have your comments in the original bug report.

Thanks again!

[rdokoye]

What is the status on the Document Converter? Something to this effect would be most convenient for me.