After using hyperlink to open several pdf files, the Acrobat window is in full mode. How to snap_to_left that window from the same VBA Excel macro? - excel

Question

I have to review scanned documents in order to check the certainty of data in other documents called resolutions.
Each pdf file name contains the number and the date of passing of each resolution.
I made a VBA excel macro that reads all the pdf files in a folder, extracts the date of passing, and builds a list ordered chronologically according to that dates. Latest to newest. Later the macro opens the pdf files in that order by using ActiveWorkbook.FollowHyperlink.
I snap the big screen of my PC into two parts, the leftmost for Adobe Acrobat, and the rightmost for the database containing the data records.
Problem is that after opening the pdf files, Adobe Acrobat is opened in full mode.
I have this code that functions perfectly but DOES NOT RETURN the Adobe Acrobat to the leftmost part of the screen.
Sub OpenPDF()
Dim i As Long, j As Long, k As Long, m As Long, uFila As Long, n As Long
Dim oFSO As Object, oFile As Object
Dim oCarpeta As Object
Dim oArchivo As Object
Dim x As String, z As String, y() As Variant, Hoja As Worksheet
Dim Partes() As String, returnValue As Boolean, bMinimize As Integer
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oCarpeta = oFSO.GetFolder("X:\_RIE\Resoluciones")
n = 0: bMinimize = 1
For Each oArchivo In oCarpeta.Files
n = n + 1
ReDim Preserve y(n)
x = oArchivo.Name
Partes = Split(x, "-")
x = Trim(Partes(3))
x = Right(x, 4) & Mid(x, 3, 2) & Left(x, 2) ' x take the yyyymmdd format
' An "*" is inserted for future use in spliting the long name
y(n) = x & "*" & oArchivo.Name
Next oArchivo
'The Ordenado function takes the array sent and order it
y = Ordenado(y)
'Now the Acrobat app is called to close all possible pdf files opened.
Set oFSO = CreateObject("AcroExch.App")
oFSO.CloseAllDocs
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oCarpeta = oFSO.GetFolder("x:\_RIE\Resoluciones")
MsgBox "The documents will be open in chronological order." & Chr(13) & _
"Oldest to the left and so on." & Chr(13) & _
"At final you will have to restore the Adobe Acrobat window," & Chr(13) & _
"by clicking the Windows Key + Left Arrow Key."
For i = 1 To n
Partes = Split(y(i), "*")
y(i) = oCarpeta.Path & "\" & Partes(1)
Next
'This loop opens directly each pdf file.
For i = 1 To n
x = y(i)
ActiveWorkbook.FollowHyperlink (x)
Next i
'The Adobe Acrobat is invoked
Set oFSO = Nothing
Set oFSO = CreateObject("AcroExch.App")
With oFSO
.Show
'All smooth until here
'Next line is not functioning
.Restore True
End With
'That's the reason why the user has to pulse the Restore icon
'in the rightmost upper corner of the screen or
'press the Windows Key + Left Arrow Key.
Set Hoja = ActiveWorkbook.Worksheets(1)
Hoja.Activate
End Sub
Function Ordenado(myArray As Variant)
Dim i As Long
Dim j As Long
Dim Temp
'Sort the Array A-Z
For i = LBound(myArray) To UBound(myArray) - 1
For j = i + 1 To UBound(myArray)
If UCase(myArray(i)) > UCase(myArray(j)) Then
Temp = myArray(j)
myArray(j) = myArray(i)
myArray(i) = Temp
End If
Next j
Next i
Ordenado = myArray
End Function