close pdf via vba

[daveyc3000]

hello,

opening PDFs via VBA is ok, but is there a way to close all the PDF files I have open at once?

 

[Luke M]

If you don't mind using Early binding and set a reference, it's short and sweet.

'This uses early binding
'Set reference to Adobe Acrobat
Sub ClosePDFs()
Dim ac As AcroApp
Set ac = New AcroApp
ac.CloseAllDocs
End Sub

 

[daveyc3000]

excuse my ignorance, burt whats early binding

 

[daveyc3000]

i get an activex component cant create object...sorry

 

[Luke M]

Early vs. Late Binding
https://msdn.microsoft.com/en-us/library/0tcf61s1.aspx

Basically, it's whether you pre-load the library of information that you want to use, or if you have the macro do it for you. You will want to go to Tools - References, and find the reference for Adobe Acrobat and turn it on before running the code, or it won't work.

 

[daveyc3000]

 

[daveyc3000]

i think it's all enabled...i still get that error (an activex component cant create object)

 

[Luke M]

Only need the Adobe Acrobat XX.X Type Library, turn off the other Adobe/Acrobat libraries.

 

[cguarini]

Function ClosePDFs()
Dim ac As AcroApp

Set ac = New AcroApp
ac.CloseAllDocs

End Function]

Hello,
This code works to close a PDF document that is open, but how do I kill the Acrobat application or Exit the Acrobat program?
"ac.Exit" does not seem to work.

I have Acrobat v10 type library loaded.

 

[cguarini]

Got something to work.
New code below

Function ClosePDF()
Dim ac As AcroApp
Dim ad As AcroApp

Set ac = New AcroApp
ac.CloseAllDocs
Set ad = New AcroApp
ad.Hide

End Function