Hi,
how to check with VBA whether Office 2007 Compatibility Pack is installed on
computer?

TIA
Reinhard

Here is one possible approach.

'--------------------------------------

Sub CheckForCompatabilityPack()

Const HKEY_LOCAL_MACHINE = &H80000002

Dim packInstalled As Boolean

strComputer = "."
packInstalled = False

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninsta ll"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

For Each Subkey In arrSubKeys
If Subkey = "{90120000-0020-0409-0000-0000000FF1CE}" Then
packInstalled = True
End If
Next

If packInstalled Then
MsgBox "Compatability Pack for Office 2007 installed"
End If

Set objReg = Nothing

End Sub


'-------------------------------------

Steve Yandl



"Reinhard Thomann" wrote in message
...
Hi,
how to check with VBA whether Office 2007 Compatibility Pack is installed
on computer?

TIA
Reinhard

Hi Steve,

good solution. Many thanks for your help.

Regards
Reinhard

"Steve Yandl" schrieb im Newsbeitrag
...
Here is one possible approach.

'--------------------------------------

Sub CheckForCompatabilityPack()

Const HKEY_LOCAL_MACHINE = &H80000002

Dim packInstalled As Boolean

strComputer = "."
packInstalled = False

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninsta ll"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

For Each Subkey In arrSubKeys
If Subkey = "{90120000-0020-0409-0000-0000000FF1CE}" Then
packInstalled = True
End If
Next

If packInstalled Then
MsgBox "Compatability Pack for Office 2007 installed"
End If

Set objReg = Nothing

End Sub


'-------------------------------------

Steve Yandl



"Reinhard Thomann" wrote in message
...
Hi,
how to check with VBA whether Office 2007 Compatibility Pack is installed
on computer?

TIA
Reinhard