|
' *******************************************************************************
' 目的:打开一份PDF文档,读取PDF文档的页数
' 输入参数:
' 返回结果:
' 注意事项:
' *******************************************************************************
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
运行后提示:ActiveX 元件無法產生物件: 'AcroExch.App'
原因是不是因为我只装了ADOBE READER? |
|