Как узнать версию установленного Office

[Олег Козлов]

Вот надо узнать - какая версия MS Office сейчас установлена (причем в двух вариантах: например, 2003 и 11.0). Можно ли енто забахать?

[alibek]

В реестре смотри.

[GSerg]

А если установлены сразу несколько версий?

[Олег Козлов]

В реестре смотри.

А где это смотреть?

[Amed]

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office

[Олег Козлов]

У меня там, например, ветки:
8.0
9.0
10.0
11.0

[Amed]

У меня сейчас стоит Office 2003 (11.5612.5606).
Office 2003 = Office 11.

Если не устраивает такой список, смотрите подразделы. У меня в разделе 11.0 есть подразделы "Word", "Excel"... Намек понятен?

[Олег Козлов]

Это-то я понял. Но вдруг у кого-то раньше стоял например XP (10.0), у него соответствено тоже были подпапки Word, Excel..., а потом он поставил 2003. Поэтому у него сейчас и в 10.0, и в 11.0 есть Ворд, Эксель... (думаю, вряд ли обновитель XP -> 2003 сотрет старые ветки Word, Excel и т.д. в реестре)

[Amed]

Думаю, что как раз обновитель и стирает старые ветки (по крайней мере, часть их содержимого).

Проверил. На другой машине ставился поверх старого Office с 9 по 11 версию включительно (9 -> 10, 10 -> 11). В подветках 8.0, 9.0 и 10.0 осталась только подветка Common. В подветке 11.0 масса информации.

[GSerg]

Код: Выделить всё

private function getversion(s as string) as double
  on error goto errh
  with createobject(s)
    getversion=val(.version)
    .quit
  end with
err:
end function

...

dim v as double

v=getversion("word.application")
if v=0 then
  v=getversion("excel.application")
  if v=0 then
    v=getversion("access.application")
    if v=0 then v=getversion("powerpoint.application")
  end if
end if

'Зырим в реестре в ветке v

[Amed]

Добавлю от себя, что надо еще Outlook хорошо бы смотреть. Для верности.