Tell which version of Office (or Word) is installed 2

[wtotten]

I'm using VFP 8. is there a way to determine which version of Office (or Word) is installed (e.g., 2003, 2007, 2010, 2013, 2016)?

Thanks,
Bill

 

[Olaf Doschke]

Well,

1. The Office Application COM Automation Servers (ie Word.Applicatiom, Excel.Application, Outlook.Application) have a Version property.
2. Registry is telling about installed software and Version

Ad 1:

Try
 o = CreateObject("Word.Application")
 ? o.Version
Catch
 ? "Word is not installed (properly)"
EndTry

Ad 2:
a) HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinWord.exe contains the path to Windword.EXE and you can use AGETFILEVERSION() on it
b) HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Installer\Products lists all installed products

Clear

Local Array laProductKeys[2]
Local lcProduct
loReg = NewObject("registry",_Samples+"classes\registry.prg")
If loReg.EnumOptions(@laProductKeys,"SOFTWARE\Classes\Installer\Products",-2147483646,.T.) = 0
   For Each lcProductKey In laProductKeys
      If loReg.GetRegKey("ProductName",@lcProduct,"SOFTWARE\Classes\Installer\Products\"+lcProductKey+"\",-2147483646) = 0
         ? lcProduct
      Else
         ? "No Product name for Prodcuct Key ",lcProductKey
      Endif
   EndFor
Else
   ? "No Product Enumeration Found"
Endif

Bye, Olaf.

 

[GriffMG]

If you open the application using automation...

			OWORD = CREATEOBJECT("Word.Application")
			MESSAGEBOX(OWORD.application.version)

Regards

Griff
Keep [Smile]ing

There are 10 kinds of people in the world, those who understand binary and those who don't.

I'm trying to cut down on the use of shrieks (exclamation marks), I'm told they are !good for you. ​

 

[wtotten]

Thanks guys. That's what I was looking for.
Bill