1Sub Main 2 3Dim oSettings(11) as new com.sun.star.beans.PropertyValue 4oSettings(0).Name = "JPEGCompression" 5oSettings(0).Value= True 6oSettings(1).Name = "JPEGQuality" 7oSettings(1).Value= 25 8oSettings(2).Name = "RemoveCropArea" 9oSettings(2).Value= True 10oSettings(3).Name = "ImageResolution" 11oSettings(3).Value= 90 12oSettings(4).Name = "OLEOptimization" 13oSettings(4).Value= False 14oSettings(5).Name = "OLEOptimizationType" 15oSettings(5).Value= 1 16oSettings(6).Name = "DeleteUnusedMasterPages" 17oSettings(6).Value= True 18oSettings(7).Name = "DeleteHiddenSlides" 19oSettings(7).Value= True 20oSettings(8).Name = "DeleteNotesPages" 21oSettings(8).Value= True 22oSettings(9).Name = "SaveAs" 23oSettings(9).Value= true 24oSettings(10).Name = "EmbedLinkedGraphics" 25oSettings(10).Value = false 26oSettings(11).Name = "SaveAsURL" 27oSettings(11).Value = "" 28oSettings(12).Name = "FilterName" 29oSettings(12).Value = "impress8" 30 31 32 33Dim oArg(0) as new com.sun.star.beans.PropertyValue 34oArg(0).Name = "Settings" 35oArg(0).Value= oSettings 36 37Dim url As String 38Dim oPresentations(17) as String 39oPresentations( 0)="d:\data\sunpresentations\01-22-07SunIntelAnnouncementPresentation,01-22-2007.star_impress_8x.odp" 40oPresentations( 1)="d:\data\sunpresentations\01_Schwartz_SAS_VF.odp" 41oPresentations( 2)="d:\data\sunpresentations\CorporateSocialResponsibilityCustomerPresentation,02-12-2007.star_impress_8x.odp" 42oPresentations( 3)="d:\data\sunpresentations\Current-ProjectBlackboxCustomerPresentation,03-07-2007.star_impress_8x.odp" 43oPresentations( 4)="d:\data\sunpresentations\JavaSE6CustomerPresentation,12-11-2006(2).star_impress_8x.odp" 44oPresentations( 5)="d:\data\sunpresentations\JavaSE6CustomerPresentation,12-11-2006.star_impress_8x.odp" 45oPresentations( 6)="d:\data\sunpresentations\NetworkComputingLaunchPresentation,Q22006,Washington,DC,05-08-2006.star_impress_8x.odp" 46oPresentations( 7)="d:\data\sunpresentations\ProjectBlackboxTechnicalPresentation-NDAONLY,11-09-2006.star_impress_8x.odp" 47oPresentations( 8)="d:\data\sunpresentations\ScottMcNealy,IntlAssocofPrivacyProfessionals)ConferenceOpeningKeynote,'PlayingonSunday-GettingPrivacyRight',March,8,2007,Washington,DC,,03-08-2007.star_impress_8x.odp" 48oPresentations( 9)="d:\data\sunpresentations\Sun'sStoragetekAcademy-JonathanSchwartzTheSky'sTheLimit!,February,292007,SanFrancisco,CA,02-28-2007.star_impress_8x.odp" 49oPresentations(10)="d:\data\sunpresentations\SunAnalystSummit2007(SAS)-DonGranthamExecutingonStrategy,February,6,2007,SanFrancisco,CA,02-07-2007.star_impress_8x.odp" 50oPresentations(11)="d:\data\sunpresentations\SunConsultingServicesPortfolio-Presentation,03-17-2006.star_impress_6x.sxi" 51oPresentations(12)="d:\data\sunpresentations\SunFedOpenYourMindandSunFedTechDayatGTSI,ScottMcNealy,January23and24,2007,Washington,DC,01-23-2007.star_impress_8x.odp" 52oPresentations(13)="d:\data\sunpresentations\SunFedTechDaysatAccenture,ScottMcNealy,January24,2007,Washington,DC,01-24-2007.star_impress_8x.odp" 53oPresentations(14)="d:\data\sunpresentations\SunManagedServicesGoldenPitch,03-22-2007.star_impress_8x.odp" 54oPresentations(15)="d:\data\sunpresentations\SunServicesEducationServicesGeneralPresentation,01-11-2006.star_impress_6x.sxi" 55oPresentations(16)="d:\data\sunpresentations\SunSystemPacks-CustomerReadyPresentation,01-23-2007.star_impress_8x.odp" 56oPresentations(17)="d:\data\sunpresentations\U.S.SalesMeetingCustomerPresentation(08-01-2006),08-01-2006.odp" 57 58FOR I = 0 TO 17 59url=oPresentations( I ) 60oSettings(11)=url+string( I, 2 ) 61url=converttourl( url ) 62optimize( url, oArg() ) 63NEXT I 64 65End Sub 66 67Sub Optimize( url as String, oArg ) 68 69Dim oPPPOptimizerDialog as Object 70Dim oUrl as new com.sun.star.util.URL 71Dim oTrans as Object 72oTrans = createUNOService("com.sun.star.util.URLTransformer") 73oUrl.Complete = "vnd.com.sun.star.comp.PPPOptimizer:optimize" 74oTrans.parsestrict(oUrl) 75 76Dim oDoc As Object 77Dim FileProperties(0) As New com.sun.star.beans.PropertyValue 78oSM = CreateObject("com.sun.star.ServiceManager") 79oDesk = oSM.createInstance("com.sun.star.frame.Desktop") 80oDoc = oDesk.loadComponentFromURL( url, "_blank", 0, FileProperties() ) 81 82Dim oInitialization( 0 ) as Object 83oInitialization(0) = oDoc.getCurrentController.getFrame 84oPPPOptimizerDialog = createUNOservice("com.sun.star.comp.PPPOptimizerImp") 85oPPPOptimizerDialog.initialize( oInitialization ) 86oPPPOptimizerDialog.dispatch(oURL, oArg) 87odoc.dispose 88End Sub 89 90