Word-Edition ermitteln

26/02/2009 - 16:36 von Marcus Sonntag | Report spam
Hallo!

Gibt es in VBA eine Möglichkeit herauszufinden, ob ich Word-Standard,
Professional oder Enterprise habe?

Vielen Dank!
Marcus Sonntag
 

Lesen sie die antworten

#1 Christian Freßdorf
01/03/2009 - 10:35 | Warnen spam
Hallo Marcus,

Gibt es in VBA eine Möglichkeit herauszufinden, ob ich Word-Standard,
Professional oder Enterprise habe?



mir ist keine direkte Möglichkeit bekannt.
Du kannst wohl nur durch Vergleich des Versionsumfangs die Ausgabe
ermitteln.

Evtl. hilft Dir da
Application.ProductCode
oder du prüfst auf die einzelnen Office-Programme:

Option Explicit

Function IsOutlookAvailable() As Boolean
On Error Resume Next
Dim oOutl As Object
Set oOutl = CreateObject("Outlook.Application")
If oOutl Is Nothing Then
IsOutlookAvailable = False
Else
IsOutlookAvailable = True
Set oOutl = Nothing
End If
End Function
Function IsAccessAvailable() As Boolean
On Error Resume Next
Dim oAccess As Object
Set oAccess = CreateObject("Access.Application")
If oAccess Is Nothing Then
IsAccessAvailable = False
Else
IsAccessAvailable = True
Set oAccess = Nothing
End If
End Function
Function IsInfoPathAvailable() As Boolean
On Error Resume Next
Dim oInfoPath As Object
Set oInfoPath = CreateObject("InfoPath.Application")
If oInfoPath Is Nothing Then
IsInfoPathAvailable = False
Else
IsInfoPathAvailable = True
Set oInfoPath = Nothing
End If
End Function
Function IsExcelAvailable() As Boolean
On Error Resume Next
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
If oExcel Is Nothing Then
IsExcelAvailable = False
Else
IsExcelAvailable = True
Set oExcel = Nothing
End If
End Function

Sub TestOfficeProgramme()
Dim sOffice As String
sOffice = "Outlook: " & IsOutlookAvailable & vbCrLf
sOffice = sOffice & "Access: " & IsAccessAvailable & vbCrLf
sOffice = sOffice & "InfoPath: " & IsInfoPathAvailable & vbCrLf
sOffice = sOffice & "Excel: " & IsExcelAvailable
MsgBox sOffice
End Sub


HTH
Christian

Ähnliche fragen