VBA Code to close adobe reader

[howard]

I am looking for code to close Adobe Acrobat reader via Excel if open


I would appreciate any assistance to do this

 

[Haluk]

Re: VBA Code to close adobe readee

The following code will close if Test.pdf is already opened by Adobe Reader.

Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long

Const WM_CLOSE = &H10

Sub Close_Adobe_Reader_PDF_Document()
    Dim Hwnd As Long
    PDF_Caption = "Test.pdf - Adobe Reader"
    Hwnd = FindWindow(vbNullString, PDF_Caption)
    If Hwnd Then
        PostMessage Hwnd, WM_CLOSE, 0, ByVal 0&
    Else
        MsgBox PDF_Caption & " is not running !"
    End If
End Sub

 

[howard]

Re: VBA Code to close adobe readee

Thanks Haluk

I am using Office 2016 64 bit


I amended your declarations to take 64 bit into account


However, I get a run time error "variable not defined"

 PDF_Caption = "Test.pdf - Adobe Reader"

 Option Explicit



#If  VBA7 And Win64 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
#Else 
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End  If
Const WM_CLOSE = &H10

Sub Close_Adobe_Reader_PDF_Document()
    Dim hwnd As Long
    PDF_Caption = "Test.pdf - Adobe Reader"
    hwnd = FindWindow(vbNullString, PDF_Caption)
    If hwnd Then
        PostMessage hwnd, WM_CLOSE, 0, ByVal 0&
    Else
        MsgBox PDF_Caption & " is not running !"
    End If
End Sub

Kindly amend your code

 

[Haluk]

Re: VBA Code to close adobe readee

Hello,

In your code, remove the line Option Explicit and according to your API declarations, use SendMessage instead of PostMessage in line;

PostMessage hwnd, WM_CLOSE, 0, ByVal 0&

 

[howard]

Re: VBA Code to close adobe readee

Thanks for the reply

I now get type mismatch and the following code is highlighted

 hwnd = FindWindow(vbNullString, PDF_Caption)

Full code

 #If  VBA7 And Win64 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
#Else 
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End  If
Const WM_CLOSE = &H10

Sub Close_Adobe_Reader_PDF_Document()
    Dim hwnd As Long
    PDF_Caption = "Test.pdf - Adobe Reader"
    hwnd = FindWindow(vbNullString, PDF_Caption)
    If hwnd Then
        SendMessage hwnd, WM_CLOSE, 0, ByVal 0&
    Else
        MsgBox PDF_Caption & " is not running !"
    End If  
  End Sub

Kindly amend code and advise

 

[Haluk]

Re: VBA Code to close adobe readee

I am not sure if this helps but;

Remove the following line:

Dim hwnd As Long

and add the following line:

Dim PDF_Caption As String

 

[howard]

Re: VBA Code to close adobe readee

Thanks, Macro runs but does not close Adobe when it is open

 

[Haluk]

Re: VBA Code to close adobe readee

Is the name of the PDF file is Test.pdf ?

Check the caption of the PDF window and make sure to write it in the code line below:

PDF_Caption = "Test.pdf - Adobe Reader"

 

[Fluff]

Re: VBA Code to close adobe readee

@Haluk
I think that the OP is trying to close the application rather than a file

 

[Haluk]

Re: VBA Code to close adobe readee

@Haluk
I think that the OP is trying to close the application rather than a file

Yes, you may be correct.

So, by getting the handle of Adobe rather then the opened PDF file; the below code will close Adobe application regardless of the file name.

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
#Else 
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End  If
Const WM_CLOSE = &H10

Sub Close_Adobe_Reader()
    Dim strClassName As String
    strClassName = "AcrobatSDIWindow"
    hwnd = FindWindow(strClassName, vbNullString)
    If hwnd Then
        SendMessage hwnd, WM_CLOSE, 0, ByVal 0&
    Else
        MsgBox "Adobe is not running !"
    End If
End Sub