軟件測試工具中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.anti-gravitydesign.com