Find Executable via Batch - Microsoft Office Example - WINWORD - Find Microsoft Office Path

@ECHO OFF
CLS

FOR /F "skip=2 tokens=1,2*" %%N IN ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%~1" /v "Path" 2^>nul') DO (
 IF /I "%%N" == "Path" (
  SET wherepath=%%P%~1
  GoTo Found
 )
)

FOR /F "tokens=* USEBACKQ" %%F IN (`where.exe %~1`) DO (
 SET wherepath=%%F
 GoTo Found
)

FOR /F "tokens=* USEBACKQ" %%F IN (`where.exe /R "%PROGRAMFILES%" %~1`) DO (
 SET wherepath=%%F
 GoTo Found
)

FOR /F "tokens=* USEBACKQ" %%F IN (`where.exe /R "%PROGRAMFILES(x86)%" %~1`) DO (
 SET wherepath=%%F
 GoTo Found
)

FOR /F "tokens=* USEBACKQ" %%F IN (`where.exe /R "%WINDIR%" %~1`) DO (
 SET wherepath=%%F
 GoTo Found
)

:Found
SET %2=%wherepath%
:End

@ECHO OFF
CLS

CALL "app_path_func.cmd" WINWORD.EXE PROGPATH
ECHO %PROGPATH%

PAUSE

C:\Program Files (x86)\Microsoft Office\Office15\WINWORD.EXE
Press any key to continue . . .

@ECHO OFF
CLS

FOR /F "tokens=* USEBACKQ" %%F IN (`reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%~1" ^| findstr /C:"Program Files"`) DO (
SET REGSTR=%%F
)
SET %1=%REGSTR:*REG_SZ    =%

@ECHO OFF
CLS

CALL "reg_app_path.cmd" WINWORD.EXE PROGPATH
::CALL "where_prog_file.cmd" WINWORD.EXE PROGPATH
ECHO %PROGPATH%

PAUSE

C:\Program Files (x86)\Microsoft Office\Office15\
Press any key to continue . . .

@ECHO OFF
CLS

FOR /F "tokens=* USEBACKQ" %%F IN (`where.exe /R "%PROGRAMFILES%" %~1`) DO (
SET wherepath=%%F
)

if "%wherepath%"=="" (
FOR /F "tokens=* USEBACKQ" %%F IN (`where.exe /R "%PROGRAMFILES(x86)%" %~1`) DO (
SET wherepath=%%F
)
)

SET %2=%wherepath%

@ECHO OFF
CLS

::CALL "win_office_path.cmd" WINWORD.EXE PROGPATH
CALL "where_prog_file.cmd" WINWORD.EXE PROGPATH
ECHO %PROGPATH%

PAUSE

INFO: Could not find files for the given pattern(s).
C:\Program Files (x86)\Microsoft Office\root\Office16\WINWORD.EXE
Press any key to continue . . .