（VBA）Acrobatタイプライブラリのレイトバインディング（avaoidリファレンス）

Question

Adob​​e Acrobat Type Libraryの参照を避けることはできますか？ どうすればわかりません... ActiveXエラーメッセージが表示されます。

残りの部分は重要ではないので、私は自分のコードの抜粋のみを貼り付けます。ここで は、事前バインディング（設定参照）とのコードです：

Dim Fol_Path As String 
Dim Each_Page As Boolean 

Dim AC_PD As Acrobat.AcroPDDoc 
Dim AC_Hi As Acrobat.AcroHiliteList 
Dim AC_PG As Acrobat.AcroPDPage 
Dim AC_PGTxt As Acrobat.AcroPDTextSelect 

Dim OS_FSO As Object 
Dim OS_TxtFile As Object 

Set OS_FSO = CreateObject("Scripting.filesystemobject") 

Dim Ct_Page As Long 
Dim i As Long, j As Long, k As Long 
Dim T_Str As String 

Dim Hld_Txt As Variant 

Each_Page = True 

Set AC_PD = New Acrobat.AcroPDDoc 
Set AC_Hi = New Acrobat.AcroHiliteList 
AC_Hi.Add 0, 32767 

... ... ...

 Set AC_PG = .AcquirePage(i - 1) 

     Set AC_PGTxt = AC_PG.CreateWordHilite(AC_Hi) 

Answer 1

@ACatinLove 感謝！出来た！ （私のコードは結果として抽出されます）。 Dimの後に "Const AcroExch As Long = 0"と書いておかなければならないのはどこですか？

Dim AC_PD As Object 
Dim AC_Hi As Object 
Dim AC_PG As Object 
Dim AC_PGTxt As Object 

'Const AcroExch As Long = 0 

Dim OS_FSO As Object 
Dim OS_TxtFile As Object 

Set OS_FSO = CreateObject("Scripting.filesystemobject") 

Dim Ct_Page As Long 
Dim i As Long, j As Long, k As Long 
Dim T_Str As String 

Dim Hld_Txt As Variant 

Each_Page = True 

'Set AC_PD = New Acrobat.AcroPDDoc 
'Set AC_Hi = New Acrobat.AcroHiliteList 

Set AC_PD = CreateObject("AcroExch.PDDoc") 
Set AC_Hi = CreateObject("AcroExch.HiliteList")