QTP测试PDF的方法(转载)

Adobe的PDF文件是目前通用的文件格式之一，很多文档都以这种格式来存储。在使用QTP进行自动化测试的过程中，经常要验证PDF文件的内容是否满足要求，因此需要访问PDF文件的内部属性。幸好Adobe提供了以COM方式访问PDF的接口，使得我们可以实现QTP测试PDF的自动化过程。下面是一个简单的例子，用于打开一份PDF文档，读取PDF文档的页数：

8Ugq-@nx(WG0*******************************************************************51Testing软件测试网OGKJ.?3T)M C
' 目的：打开一份PDF文档，读取PDF文档的页数51Testing软件测试网%@9S|!M3f D_
' 输入参数：
)Ah}J XB;{7A9jT0' 返回结果：51Testing软件测试网`A4y\ s)HI
' 注意事项：51Testing软件测试网wGV3hG4] U kw
' 作者：陈能技(http://itestware.com/)51Testing软件测试网 vJhU/VS(aFL)V
' 日期：2008-7-6
&S_3Y$XsPbPw0' *******************************************************************51Testing软件测试网 @(I2v/[#h
Option Explicit
CmM*g-I+L0Dim gApp, gPDDoc, jso
jx$tn2c n.w0Set gApp = CreateObject( "AcroExch.App" )
7f5Aj(bWk3f0Set gPDDoc = CreateObject( "AcroExch.PDDoc" )
,QEN6`f%DPU0If gPDDoc.Open( "D:\Doc\AutomatedTesting.pdf" ) Then
W| QFqmH0Msgbox gPDDoc.GetNumPages
G-{$o*J:@`7o/M`_0End If
:quX$R1u+J0Set gPDDoc = Nothing : Set gApp = Nothing

1jl,M)xfS5L-R0