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