$appli = "Winword.exe"
MsgBox(0, "Microsoft Office", "La version de l'application """ & $appli & """ est : " & _office_version($appli))
Exit
Func _office_version($app)
$file = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & $app, "")
$file_version = StringSplit(FileGetVersion($file), ".")
Switch $file_version[1]
Case 7
$version = "97"
Case 8
$version = "98"
Case 9
$version = "2000"
Case 10
$version = "2002"
Case 11
$version = "2003"
Case 12
$version = "2007"
Case Else
$version = "0"
EndSwitch
Return $version
EndFunc





