Inspiring

Answered

How to late bind Acrobat object in VBA?

Forum|Forum|4 years ago
January 29, 2021
5 replies
3760 views

The following code works perfectly in Microsoft excel VBA.

How can I change it to late binding?

    Dim AcroPDDocNew    As New Acrobat.AcroPDDoc
    Dim AcroPDDocAdd    As New Acrobat.AcroPDDoc
    Dim lRet            As Long
    
    lPages=0
    lRet = AcroPDDocNew.Create()
    lRet = AcroPDDocAdd.Open("E:\Test1.pdf")
    lRet = AcroPDDocNew.InsertPages(lPages - 1, AcroPDDocAdd, 0, 1, True)

Thank you.

Windows

This topic has been closed for replies.

Correct answer MnInShdw

It's a shame not only Adobe sells a product and doesn't support the customers, but also doesn't offer enough documetaion on what they promis their software can do.

After days of trial and error, I end up to the following method. I'm not sure if it's the best way to do it, but in a world without documention, anything that works is correct.

The following code, creates a blank file, adds a page and saves it.

It's using Late Binding method.

Dim Ret As Long
Dim AddAfter As Long
Dim DocPageCount As Long
Dim AcroApp As Object
Dim ResultDoc As Object
Dim AddThisDoc As Object
  
Set ResultDoc = CreateObject("AcroExch.PDDoc")
Set AddThisDoc = CreateObject("AcroExch.PDDoc")
' Create a blank pdf
Ret = ResultDoc.Create()

' Add the first pdf
AddThisDoc.Open ("D:\File2.pdf")
If ResultDoc.InsertPages(AddAfter - 1, AddThisDoc, 0, AddThisDoc.GetNumPages(), True) = False Then
	MsgBox "Failed to Add "
End If
AddAfter = AddAfter + AddThisDoc.GetNumPages()
AddThisDoc.Close

' Add second file
AddThisDoc.Open ("D:\File2.pdf")
DocPageCount = AddThisDoc.GetNumPages()
If ResultDoc.InsertPages(AddAfter - 1, AddThisDoc, 0, DocPageCount, True) = False Then
	MsgBox "Failed to Add "
End If

' save result
If ResultDoc.Save(1, "D:\test.pdf") = False Then
		MsgBox "Failed to save the file."
End If
ResultDoc.Close

J

Jonathan276551468tlq

New Participant

I know this is a bit of a necro, but I figured out how to do this a bit by accident after trying to find an answer here and thought I'd share.

Step 1: Add the adobe object reference in the VBA editor Tools -> References -> Acrobat

Step 2: Open the object browser by hitting F2

Step 3: Look at the top where it says "<All Libraries>" and select "Acrobat"

In the middle of the screen it will show you a list of class objects. Select AcroAVDoc as an example. If you look below the list of class objects and above where the immediate window is you'll see some text that says:

Class AcroAVDoc

Member of Acrobat

AcroExch.AVDoc

That "AcroExch.AVDoc" is what you use with create object IE: CreateObject("AcroExch.AVDoc"). This method of finding the create object command works with any object that would require the new keyword. The other members of the library are things you set with the members that have a create object listing. IE:

Set acroDoc = acroApp.GetPDDoc

M

MnInShdwAuthorCorrect answer

Inspiring

It's a shame not only Adobe sells a product and doesn't support the customers, but also doesn't offer enough documetaion on what they promis their software can do.

After days of trial and error, I end up to the following method. I'm not sure if it's the best way to do it, but in a world without documention, anything that works is correct.

The following code, creates a blank file, adds a page and saves it.

It's using Late Binding method.

Dim Ret As Long
Dim AddAfter As Long
Dim DocPageCount As Long
Dim AcroApp As Object
Dim ResultDoc As Object
Dim AddThisDoc As Object
  
Set ResultDoc = CreateObject("AcroExch.PDDoc")
Set AddThisDoc = CreateObject("AcroExch.PDDoc")
' Create a blank pdf
Ret = ResultDoc.Create()

' Add the first pdf
AddThisDoc.Open ("D:\File2.pdf")
If ResultDoc.InsertPages(AddAfter - 1, AddThisDoc, 0, AddThisDoc.GetNumPages(), True) = False Then
	MsgBox "Failed to Add "
End If
AddAfter = AddAfter + AddThisDoc.GetNumPages()
AddThisDoc.Close

' Add second file
AddThisDoc.Open ("D:\File2.pdf")
DocPageCount = AddThisDoc.GetNumPages()
If ResultDoc.InsertPages(AddAfter - 1, AddThisDoc, 0, DocPageCount, True) = False Then
	MsgBox "Failed to Add "
End If

' save result
If ResultDoc.Save(1, "D:\test.pdf") = False Then
		MsgBox "Failed to save the file."
End If
ResultDoc.Close

D

default2j4p2hq2pj9y

New Participant

Thanks - a good working bit of code that should help me get over my own similar problem.

try67

Community Expert

[Mistake in title fixed]

T

Test Screen Name

Legend

Maybe nobody knows what BVA is.

M

MnInShdwAuthor

Inspiring

Unfortunately this forum doesn't allow editing my post.

It was a mistype.

Though the title is mistyped, the contents of the question was correct.

It is VBA not BVA.

VBA is the visual basic language designed for Microsoft Office.

In any office project, if you press alt+F11, you'll be taken to a visual basic editor to write your code and execute a series of functions.