QTP测试PDF的方法

Adobe的PDF文件是目前通用的文件格式之一，很多文档都以这种格式来存储。在使用QTP进行自动化测试的过程中，经常要验证PDF文件的内容是否满足要求，因此需要访问PDF文件的内部属性。

幸好Adobe提供了以COM方式访问PDF的接口，使得我们可以实现QTP测试PDF的自动化过程。下面是一个简单的例子，用于打开 一份PDF文档，读取PDF文档的页数：

'*******************************************************************************

'目的：打开 一份PDF文档，读取PDF文档的页数

'输入参数：

'返回结果：

'注意事项：

'作者：陈能技(http://itestware.com)

'日期：2008-7-6

'*******************************************************************************

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