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