FilesModul.xba (3e02b54d) | FilesModul.xba (bc0b50dd) |
---|---|
1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 4 * 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file --- 442 unchanged lines hidden (view full) --- 451 FirstEnd = FirstStart + Ubound(SecList(),1) 452 ReDim Preserve FirstList(FirstEnd,2) 453 s = 0 454 For i = FirstStart To FirstEnd 455 FirstList(i,0) = SecList(s,0) 456 FirstList(i,1) = SecList(s,1) 457 sLocExtension = lcase(FirstList(i,1)) 458 Select Case sLocExtension | 1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 4 * 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file --- 442 unchanged lines hidden (view full) --- 451 FirstEnd = FirstStart + Ubound(SecList(),1) 452 ReDim Preserve FirstList(FirstEnd,2) 453 s = 0 454 For i = FirstStart To FirstEnd 455 FirstList(i,0) = SecList(s,0) 456 FirstList(i,1) = SecList(s,1) 457 sLocExtension = lcase(FirstList(i,1)) 458 Select Case sLocExtension |
459 Case "sdw", "sdc", "sda", "sdd", "smf", "sgl", "doc", "xls", "ppt", "sxi" , "sxw" , "sxd" , "sxg" , "sxm" , "sxc" , "pps" | 459 Case "sdw", "sdc", "sda", "sdd", "smf", "sgl", "doc", "xls", "ppt", "sxi" , "sxw" , "sxd" , "sxg" , "sxm" , "sxc" , "pps" , "docx" , "docm" , "xlsx" , "xlsm" , "xlsb" , "pptx" , "pptm" |
460 AbsDocuFound = AbsDocuFound + 1 461 Case else 462 AbsTemplateFound = AbsTemplateFound + 1 463 End Select 464 FirstList(i,2) = CStr(NewContentList(s)) 465 s = s + 1 466 Next i 467 SetProgressDisplay(Ubound(FirstList()) + 1) --- 377 unchanged lines hidden --- | 460 AbsDocuFound = AbsDocuFound + 1 461 Case else 462 AbsTemplateFound = AbsTemplateFound + 1 463 End Select 464 FirstList(i,2) = CStr(NewContentList(s)) 465 s = s + 1 466 Next i 467 SetProgressDisplay(Ubound(FirstList()) + 1) --- 377 unchanged lines hidden --- |