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