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