使用openoffice转换为pdf格式

《使用openoffice转换为pdf格式》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、使用openoffice转换为pdf格式BatchprocessingwithOpenOfficeMSdidabigjobspreadingofficeformatworldwide.Itisalmosteverywhere,tons,millionsoffiles.Oftenitisneededtoautomateprocessingofthisfiles.OnewayistogowithMSOfficewithVBAorOLEautomation,thisrequireslicenseforofficeandwin32

2、systemaswell.OtherwayistogowithOpenOffice,whichisfreeandreliable.OpenOfficehasnicebatchprocessingfeatureswhichnocompetitorshave.AboutthemIwanttotelltoday.Iwouldcallthisfeatureunattendedusageoropenofficebatchprocesing.Anditrocks.StrongpointsofOpenOfficeareWorksonWi

3、ndowsOSfamilyaswellasLinuxOSCanopenALOToffileformatsItcansavetomanyfileformatsItcanrunMacros,evenVBAwithhttp://go-oo.orgTypicalapplicationsareImagineyouhavetoindex1000docdocument?Oruploadexceltabletositeandextractalldatafromit?Orconvert10000documenttoPDF?OpenOffic

4、ebatchusageLetstrysomethingsimpleatfirsttime,forexamplehowtoconvertDOCtoPDF?HereisexampleusingOffice3.1forhowtoconvertfromMSWordDOCtoAdobePDF.RunOpenOfficeandopeninmainmenuTools->Macro->OrganizeDialog->Modules->MyMacrosClickNewbuttonandchoosename:Module1.Insertthi

5、scodeintomoduleandsaveSubSaveAsPDF(cFile)DimoPropertyValueAsNewcom.sun.star.beans.PropertyValuecURL=ConvertToURL(cFile)'OpenfileoPropertyValue.Name="Hidden"oPropertyValue.Value=TrueoDoc=StarDesktop.loadComponentFromURL(cURL,"_blank",0,_Array(oPropertyValue,))'Gene

6、ratePDFnameinsamedirectorycFile=Left(cFile,Len(cFile)-4)+".pdf"cURL=ConvertToURL(cFile)'Savethedocumentusingafilter.oPropertyValue.Name="FilterName"oPropertyValue.Value="writer_pdf_Export"oDoc.storeToURL(cURL,Array(oPropertyValue))oDoc.close(True)EndSubToexecuteth

7、ismacroinunattendedmoderunthiscommand:soffice.exe-invisible"macro:///Standard.Module1.SaveAsPDF(c:sample.doc)"Checkc:itshouldcontainsample.PDFThatsit!Youcanuseyoureditorformacros,MacrofilesarestoredXMLfiles,forwindowslookfortheminc:DocumentandSettingsAp

8、plicationDataOpenOffice.org3userbasicStandartSamemethodworksinLinux.Youcandoitonheadlessserver.Thisissimplecase.Ifyouwanttodivedeepertrytogooglefor