Sub GetWordVersion() Dim WordApp As Object Set WordApp = CreateObject("Word.Application") MsgBox WordApp.Version WordApp.Quit Set WordApp = Nothing End Sub