QTP中进行PDF文件操作

使用VBS中PDF相关的DOM技术：

Dim gApp, gPDDoc, jso
Set gApp = CreateObject( "AcroExch.App" )
Set gPDDoc = CreateObject( "AcroExch.PDDoc" )
If gPDDoc.Open( "c:\MyPdfFile.pdf" ) Then
Set jso = gPDDoc.GetJSObject()
jso.console.Show
jso.console.Clear
jso.console.println ( "Hello, Acrobat for QuickTest!" )
gApp.Show
End If
Set jso = Nothing : Set gPDDoc = Nothing : Set gApp=&_
nothing

更多文章，关注我的博客http://zou-hailong.blogspot.com