Установите WSHShell = CreateObject («WScript.Shell»)
RegKey = «HKEY_LOCAL_MACHINE \ СРЕДСТВО ПРОГРАММИРОВАНИЯ \ Майкрософт \ офис \ 12.0 \ MOC»
На резюме ошибки затем 'ключ регистратуры не существует
rKeyWord = WSHShell.RegRead (RegKey & «ProductName») 'но если оно читает его
Если rKeyWord = «пакет совместимости для системы 2007 офиса» после этого
MsgBox «пакет совместимости для установленной системы 2007 офиса -»
Еще
MsgBox «пакет совместимости для установленной системы 2007 офиса -»
WSHShell.Run («c:\Windows\System32\notepad.exe ")
Закончитесь если
|