软件测试:QTP测试PDF的方法

 Adobe的PDF文件是目前通用的文件格式之一，很多文档都以这种格式来存储。在使用QTP进行自动化测试的过程中，经常要验证PDF文件的内容是否满足要求，因此需要访问PDF文件的内部属性。幸好Adobe提供了以COM方式访问PDF的接口，使得我们可以实现QTP测试PDF的自动化过程。下面是一个简单的例子，用于打开一份PDF文档，读取PDF文档的页数：
　　Option Explicit
　　Dim gApp, gPDDoc, jso
　　Set gApp = CreateObject( "AcroExch.App" )
　　Set gPDDoc = CreateObject( "AcroExch.PDDoc" )
　　If gPDDoc.Open( "D:"Doc"AutomatedTesting.pdf" ) Then
　　Msgbox gPDDoc.GetNumPages
　　End If
　　Set gPDDoc = Nothing : Set gApp = Nothing