Document converter: Add extensions as non template cases

Change-Id: Ifed1b8758e605c3457a9c57b87527d81f684a5f5
This commit is contained in:
Julien Nabet 2013-05-03 21:39:09 +02:00
parent 2493acd50c
commit a80ae49453

View File

@ -450,7 +450,7 @@ Dim s as Integer
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", "docx", "docm", "xls", "xlsx", "xlsm", "ppt", "pps", "pptx", "pptm", "ppsx", "ppsm", "sxi", "sxw", "sxd", "sxg", "sxm", "sxc"
AbsDocuFound = AbsDocuFound + 1
Case else
AbsTemplateFound = AbsTemplateFound + 1