将word文档转换成pdf格式

《将word文档转换成pdf格式》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、将WORD文档转换成PDF格式前言:由于一个客户的项目中需要将WORD文档转换成PDF格式,故写了本篇实站教程需求分析:客户的项目以B/S结构为主,提供一个WORD文件在后台自动转换成PDF,经过实际测试,如果该篇WORD文档有100多页的话,转换需要20分钟左右的时间(环境:CPU是奔腾M1.6G,512M内存),整个CPU的占用率近乎95%~100%,此结果告诉客户以后,客户提议:到客户下班后,自动转换PDF,同时如果使用人确认要查看该PDF文档,如果没有转换,提供给客户选择,是现在转换成PDF,还是由服务器在客户下班后,自动转换。项目功能:按需求分析要写

2、两个功能第一为:B/S结构后台转换,要提交给客户选择第二为:Windows服务自动转换WORD文档到PDF这两个分类:核心的转换程序都是采用线程的方式执行,只不过第一个功能是针对一个WORD文件,第二个功能针对所有未转换的WORD文档.分析到现在:我们开始实战转换了!一:必备工具安装必须的工具MSVS.Net2003,MSOffice2003,AdobeAcrobat7.0Professional,postscript.exe,gs811w32.exeMSVS.Net2003的安装不说明MSOffice2003的安装不说明AdobeAcrobat7.0Prof

3、essional安装说明运行setup.exe文件,出现输入序列号,就运行注册机,用鼠标在第一行刷下就可以看见序列号，复制粘贴到AdobeAcrobat7.0Professional安装程序对话框，安装到最后出现注册时,点击PHONE...将安装程序中显示的第二行序列号（第一行是刚才注册机生成的序列号）复制粘贴到注册机的第二行，点击右边的按钮，再用鼠标刷第三行授权号就出来了，将其复制粘贴到安装程序的最后一行，完成安装注册！postscript.exe默认安装就可以了,它是一个PDF转换时所需要的脚本gs811w32.exe默认安装就可以,它其实是个PDF虚拟打

4、印机的驱动二:配置虚拟打印机进入Windows的控制面板,进入打印机,点击"添加打印机"图标.在安装对话框上"按一步",出现选择打印机时,在制造商一栏中选择"Generic",在打印机一栏中,选择"MSPublisherColorPrinter",然后一路按下一步,知道安装结束.三:开始写第一个程序(脚本程序)为什么要使用脚本程序进行转换呢,其实实际测试过程中,使用PDFDistiller的对象引用到C#后,转换成功,但整个PDFDistiller对象不能释放,第二次再转换时,就发生了错误,故此处使用脚本程序实现转换.这样我们只要在C#的程序中调用脚本程序就可

5、以实现WORD到PDF的转换。宿主脚本文件名:ConvertDoc2PDF.js脚本文件内容:varfiles=WScript.Arguments;varfso=newActiveXObject("Scripting.FileSystemObject");varword=newActiveXObject("Word.Application");varPDF=newActiveXObject("PDFDistiller.PDFDistiller.1");word.ActivePrinter="MSPublisherColorPrinter";//files(0)

6、为WORD文档文件名//files(1)为,转换后需要保存的路径//调用fso.GetBaseName(files(0))后,为无路径,无扩展名,的文件名//files.length为文件参数的个数,使用循环可以支持多个WORD文档的转换vardocfile=files(0);varpsfile=files(1)+fso.GetBaseName(files(0))+".ps";varpdffile=files(1)+fso.GetBaseName(files(0))+".pdf";varlogfile=files(1)+fso.GetBaseName(file

7、s(0))+".log";try{vardoc=word.Documents.Open(docfile);//WORD文件转成PS文件;word.PrintOut(false,false,0,psfile);doc.Close(0);//PS文件转成PDF文件;PDF.FileToPDF(psfile,pdffile,"");fso.GetFile(psfile).Delete();//删除PS脚本文件fso.GetFile(logfile).Delete();//删除转换的日志文件word.Quit();WScript.Echo("isuccess");//

8、成功WScript.Quit(0);}