Установить Office 32 бит под Windows 10 64 бит

#If Win64 Then
'сюда переносим аналоги того, что работает в офис 32, но в версии офис 64
#Else
' сюда переносим все что не работает под  офис 64
#End If

'Функция для запуска файла внешнего приложения
#If VBA7 Then
    Declare PtrSafe Function ShellExecute Lib "SHELL32.DLL" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                         ByVal lpOperation As String, ByVal lpFile As String, _
                         ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#Else
    Declare Function ShellExecute Lib "SHELL32.DLL" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                         ByVal lpOperation As String, ByVal lpFile As String, _
                         ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If

#If Win64 Then
            Declare PtrSafe Function GetTickCount64 Lib "kernel32"() As LongLong
        #Else
            Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
        #End If

 #If VBA7 Then
           Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
               ByVal lpClassName As String, _
               ByVal lpWindowName As String) As LongPtr
         #Else
           Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
               lpClassName As String, ByVal lpWindowName As String) As Long
        #End If