@echo off
setlocal enableDelayedExpansion
for /f "tokens=2 delims==" %%O in ('ftype ^|findstr /r /I "\\OFFICE[0-9]*" 2^>nul') do (
    set "verp=%%~O"
    goto :end_for
)
:end_for

for %%P in (%verp%) do (
    set "off_path=%%~dpP"
    for %%V in ("!off_path:~0,-1!") do (

     set "office_version=%%~nV"
     goto :end_for2
    )
)
:end_for2
echo %office_version%
pause
endlocal

===============================================================================================================================================

::Other version checker's for various programs

FOR /F "tokens=2*" %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayer" /v CurrentVersion ') DO SET Installed_Flash_Version=%%B
FOR /F "tokens=2*" %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Shockwave 11\currentupdateversion" ') DO SET Installed_Shockwave_Version=%%B

  echo set current_shockwave_version=%Installed_Shockwave_Version%
  echo set current_flash_version=%Installed_Flash_Version%
  
================================================================================================================================================

for /f "skip=2 tokens=1-3 delims= " %%A in ('reg query "HKLM\Software\Microsoft\Internet Explorer" /v "svcVersion"') do @echo %%C 
Output: 11.0.9600.16476

for /f "skip=2 tokens=1-3 delims=. " %%A in ('reg query "HKLM\Software\Microsoft\Internet Explorer" /v "svcVersion"') do @echo %%C
Output: 11

for /f "skip=2 tokens=1-3 delims= " %%A in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Adobe AIR" /v "DisplayVersion"') do @echo %%C
Output: 3.9.0.1380