将Word文件自动转换为Pdf格式文件脚本

闲来无聊，尝试着写了个转换脚本，呵呵51Testing软件测试网9l'vM:?-{8Jyu4Xf

1、前置条件：

Q{*X;rB4Kj0a）安装必须的工具MS Office2003,Adobe Acrobat 7.0Professional,postscrīpt.exe,gs811w32.exe

postscrīpt.exe：是一个PDF转换时所需要的脚本51Testing软件测试网7y.J O1M_T^*E

A0R:C@
O~ |;Qj0gs811w32.exe：是一个PDF虚拟打印机的驱动

1y+[,N'^-NTl*M2Q4@^j0b）配置虚拟打印机

进入Windows的控制面板,进入打印机,点击"添加打印机"图标.在安装对话框上按"下一步",出现选择打印机时,在制造商一栏中选择"Generic",在打印机一栏中,选择"MS Publisher Color Printer",然后一路按下一步,直到结束

3U]Qf3[^f!hV2Q02、Code如下：51Testing软件测试网}7_C,|;Y{i.M

)C
t|N x$j!j0Function WordToPdf(DocFile , PdfFile , Printer)51Testing软件测试网un~P x
 '函数功能：将WORD文件自动转换为PDF文件51Testing软件测试网OuI+AC9_ m
 '参数说明：
bU.E![2VA(H0 'DocFile：需要被转换的DOC文件路径
SV5m1S!L*Ji0 'PdfFile：转换后的PDF文件路径51Testing软件测试网NX*AYe&Oi)d
f!y
 'Printer：PDF虚拟打印机名称
VpHu#l VYL/h,]0 Dim PsFile '转换时所产生的PS脚本51Testing软件测试网 _/O$S&t-|k+kd*K
 Dim PsLogFile '转换时所产生的PS脚本日志文件
!mb_:_4fEtk6P n0 51Testing软件测试网;fUf.|+C4S
 '建立对象
ltV3lI[#C0 Set ōWord = CreateObject("Word.Application")51Testing软件测试网R3W]F}
 Set ōPdf = CreateObject("PDFDistiller.PDFDistiller.1")51Testing软件测试网+Zr9j&w(Mu*p.ku#D3C
 Set fso = CreateObject("scrīpting.FileSystemObject")
O0^cH g\_5K(t0 51Testing软件测试网`F9G,o-]G2O {/A O
 '获取临时文件名51Testing软件测试网)],W5~!fqg/n(o*w1AY
 Arr = Split(DocFile , ".")51Testing软件测试网&N*N[1Al
 PsFile = Arr(0) & ".ps"
+V{Ka}*G.M!y1}.ph0 PsLogFile = Arr(0) & ".log"
[+N.@d6v3\&~0  
2^ZZ!\!t-Ne:N0 If fso.FileExists(PdfFile) Then
qJ
K ~ Vr*r0  fso.DeleteFile PdfFile , True51Testing软件测试网$e2VM9Oy4E^ A
 End If
V@\8i#k
L5k0 
xk[5l)r{Z0 '设置虚拟打印机51Testing软件测试网}!s8w,}d
 oWord.ActivePrinter = Printer51Testing软件测试网#E9i?,h o R1e|
 
6Q\n
H9S0 '打开一个WORD文件
dxGQ,vDA/f M#O4P0 oWord.Documents.Open DocFile
md;OB(e)@0 
gI-|r `o0 '转化DOC文件为PS文件51Testing软件测试网"}`6x7K@4x
 oWord.PrintOut False , False , 0 , PsFile51Testing软件测试网*p(i5w \+B`emY H8o
 oWord.Documents.Close51Testing软件测试网5bIvX;O7_s
 51Testing软件测试网/WsRPSl2a
 '转化PS文件为PDF文件
B{|rA;Q-K8yC0 oPdf.FileToPDF PsFile , PdfFile , ""51Testing软件测试网gccz9MT*MG'Yx
 oWord.Quit51Testing软件测试网5UR3{$N:k;j~C7d&Y H
 51Testing软件测试网2U7] B/f7X6J)?
 '删除PS和LOG文件
]U oW;c0 fso.GetFile(PsFile).Delete51Testing软件测试网vv0\.sQp fj
 fso.GetFile(PsLogFile).Delete51Testing软件测试网,mn9\,oQF
 51Testing软件测试网 q6p~YMZd B
 '释放对象51Testing软件测试网(KfPixOd K#k
 Set fso = Nothing51Testing软件测试网$U xq9P
`
 Set ōPdf = Nothing
j n%g3C~1z7c i0 Set ōWord = Nothing
h.RJL/s(Ea0End Function

 51Testing软件测试网*^:?Hp(o5Om5N