进入Windows的控制面板,进入打印机,点击"添加打印机"图标.在安装对话框上按"下一步",出现选择打印机时,在制造商一栏中选择"Generic",在打印机一栏中,选择"MS Publisher Color Printer",然后一路按下一步,直到结束
2、Code如下:
Function WordToPdf(DocFile , PdfFile , Printer) .j B O u(D.a5~"z I0 '函数功能:将WORD文件自动转换为PDF文件 :a+M e-E e%e:[4n H0 '参数说明: :e5s { V0QSE0 'DocFile:需要被转换的DOC文件路径 s |2[ F&a d s0`7A0 'PdfFile:转换后的PDF文件路径 W P&P E g0N d v q8J0 'Printer:PDF虚拟打印机名称 E.r V0u8M w0 Dim PsFile '转换时所产生的PS脚本 &O7U d G \ X0 Dim PsLogFile '转换时所产生的PS脚本日志文件 d c @ [5M W0 51Testing软件测试网 {-b,N j%G-m L2j a '建立对象51Testing软件测试网 P O:_"E%} I/H [ j*Y Set ōWord = CreateObject("Word.Application") 2U f9d n z Z/Y0 Set ōPdf = CreateObject("PDFDistiller.PDFDistiller.1") V Z U `6c5p p0x Y0 Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网 m { P-G(y6W W
P4w"`*{ G i0 '获取临时文件名 r J3w W _1F f%`0 Arr = Split(DocFile , ".") .@ e D+y Y!| Q"_0 PsFile = Arr(0) & ".ps"51Testing软件测试网 K e A F(F _ w$d T PsLogFile = Arr(0) & ".log" y g/H:M,f5_ x0 51Testing软件测试网"K2t#l4or z6u ?4? Y If fso.FileExists(PdfFile) Then51Testing软件测试网2M9H2v,m n o [+u y2v ` fso.DeleteFile PdfFile , True t ~ Q s { t z b0 End If51Testing软件测试网 K0G | x$p"[ |)[ 51Testing软件测试网2h I D \,r H '设置虚拟打印机 $G } t;QK0 oWord.ActivePrinter = Printer 1@ S4`2N8x8D l.e0 \+Z0S m*P9] b F J0 '打开一个WORD文件51Testing软件测试网'h @ g E x,s W oWord.Documents.Open DocFile51Testing软件测试网 ^ w ? c-} a Q }
o4~ b&q,~ P:_+J4@0 '转化DOC文件为PS文件51Testing软件测试网1l R.P*d*R1s/u oWord.PrintOut False , False , 0 , PsFile 51Testing软件测试网 ~.M n,W e l R oWord.Documents.Close51Testing软件测试网 m a z I v Z ko:z 51Testing软件测试网 e1X(a'w/I c!c '转化PS文件为PDF文件51Testing软件测试网 N ~ R b u ^ m"k A oPdf.FileToPDF PsFile , PdfFile , "" 2Q h)I a$^7} K S9U0 oWord.Quit51Testing软件测试网3|:^9U ? B b"p:_2x5I:R4g
;x d l b8v i0 '删除PS和LOG文件51Testing软件测试网:R {r t m6?5] fso.GetFile(PsFile).Delete51Testing软件测试网 O d/} ~ C R U3c fso.GetFile(PsLogFile).Delete 8U E z A h&I0 :H+J v J4Q!o0 '释放对象 V p | |1U K f0 Set fso = Nothing51Testing软件测试网 q%U ^ p!\ t K!O,M Set ōPdf = Nothing51Testing软件测试网"\ n7A&s,D3R Set ōWord = Nothing l x { E H _ l V v9I0End Function
PDF转换Word文档 ScanSoft PDF Converter Pro V4.0
PDF Converter是卖得最好的即时PDF转换为Microsoft Word 文档的工具,PDF Converter 2 包含强大的新功能以允许使用者快速转换协议、契约、信件等到Microsoft Word 文档,这样就可以编辑,从而节省宝贵的时间和金钱。PDF Converter也可以用来提取pdf文件中的表格和图表,以便于在Microsoft PowerPointreg;等应用程序中使用。主要功能:精确的转换PDF文档到Microsoft Word格式;转换PDF窗体;PDF转换向导;PDF所略图预览和指定页面范围;pdf密码和加密;PDF图片文件处理;图表和表格处理;同应用程序集成;无须额外的软件或者Adobe Acrobat