软件测试工具中QTP测试PDF的方法

软件测试工具中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

原文转自：http://www.ltesting.net