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 ）