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("C:\Documents and Settings\joan\桌面\詳解與案例剖析.pdf") Then
        Msgbox gPDDoc.GetNumPages
    End If
Set gPDDoc = Nothing : Set gApp = Nothing
'Adobe Acrobat Professional

 

（需要安裝Adobe Acrobat Professional ）