' Determine the Version of Microsoft Word Installed on a Computer

Set objWord = CreateObject("Word.Application")
Wscript.Echo "Version: " & objWord.Version
Wscript.Echo "Build: " & objWord.Build
Wscript.Echo "Product Code: " & _
    objWord.ProductCode()
objWord.Quit

Sub test()

Set objWord = CreateObject("Word.Application")
MsgBox "Version: " & objWord.Version
MsgBox "Build: " & objWord.Build
MsgBox "Product Code: " & _
    objWord.ProductCode()
objWord.Quit

End Sub

Public Function VersionMS()
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    VersionMS = FSO.GetFileVersion("Application.Path & "\winword.exe")
    Set FSO = Nothing
End Function

Public Function VersionMS()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    VersionMS = FSO.GetFileVersion(SysCmd(acSysCmdAccessDir) & "winword.exe")
    Set FSO = Nothing
End Function

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы