Reading version info from registry

[JB]

Hi Folks,
I'm trying to write a macro which is independant of version and location
of office install but I'm having trouble reading the registry with the
code I have. I've used this code many times before in the
HKEY_CURRENT_USER key but never in the HKEY_LOCAL_MACHINE key.

Here's what I have : -

Dim AppVer As String
Dim x as Integer
Dim Tester as string

AppVer = Application.Version
x = InStr(AppVer, ".")
VerNum = Left(AppVer, x - 1)
Tetser = GetSetting("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" _
& VerNum & ".0" & "\Word\", "InstallRoot", "Path")

Confused

J

 

[Jonathan West]

I would do this a different way. If you are controlling word or Office from
an outside program, query this information directly from Word.

Determine If Word is Installed
http://www.fawcette.com/vsm/2002_06/magazine/columns/qa/default_pf.aspx