Programatically determining the version of Office installed 1

[cdipaolo]

I am working with an application that uses Office Web Components - this uses a different DLL depending on if the user has Office 2002 or later. Is there a way to programatically determine which version of Office a user has installed?

 

[VBslammer]

Users can have different components of Office installed, but most will have Word, so you can check which version of Word is installed using automation. Office 2002 (XP) is version 10.0, so you just need to know if the version is greater than 9.0

Public Function GetOfficeVersion() As Single
On Error GoTo ErrHandler

  Dim wd As Word.Application
  
  Set wd = CreateObject("Word.Application")
  
  If Not wd Is Nothing Then
    GetOfficeVersion = CSng(wd.Version)
    wd.Quit False
    Set wd = Nothing
  End If
  
ExitHere:
  Exit Function
ErrHandler:
  Debug.Print "Error: " & Err & "-" & Err.Description
  Resume ExitHere
End Function

Public Function 2002orLater() As Boolean
On Error GoTo ErrHandler

  2002orLater = (GetOfficeVersion > 9#)

ExitHere:
  Exit Function
ErrHandler:
  Debug.Print Err, Err.Description
  Resume ExitHere
End Function

VBSlammer

Unemployed in Houston, Texas