Hi Steve,
good solution. Many thanks for your help.
Regards
Reinhard
"Steve Yandl" <syandl_nospam_@comcast.net> schrieb im Newsbeitrag
news:(E-Mail Removed)...
> Here is one possible approach.
>
> '--------------------------------------
>
> Sub CheckForCompatabilityPack()
>
> Const HKEY_LOCAL_MACHINE = &H80000002
>
> Dim packInstalled As Boolean
>
> strComputer = "."
> packInstalled = False
>
> Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
> strComputer & "\root\default:StdRegProv")
>
> strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
> 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" <(E-Mail Removed)> wrote in message
> news:e%(E-Mail Removed)...
>> Hi,
>> how to check with VBA whether Office 2007 Compatibility Pack is installed
>> on computer?
>>
>> TIA
>> Reinhard
>
>
|