标题: QTP对PDF文件进行编程 [打印本页] 作者: arivn 时间: 2010-9-19 19:34 标题: QTP对PDF文件进行编程 Dim gApp, gPDDoc, jso
Set gApp = CreateObject( "AcroExch.app" )
Set gPDDoc = CreateObject( "AcroExch.PDDoc" )
If gPDDoc.Open( "D:\EDAN\rep\4.pdf" ) Then
Msgbox gPDDoc.GetNumPages
End If
Set gPDDoc = Nothing
Set gApp = Nothing