Cara termudah untuk mendeteksi versi MS Office yang ter-install di komputer, yaitu dengan cara membaca nilai registry. Berikut kodenya :
Tulis kode function ini di Module baru :
Function VersiOffice(ByVal Aplikasi As String) As String
On Error GoTo Ero
Dim Reg As Object
Dim s As String
Set Reg = CreateObject("Wscript.Shell")
s = Reg.RegRead("HKCR\" & Aplikasi & ".Application\CurVer\")
VersiOffice = Replace(s, Aplikasi & ".Application.", "", , , 1)
Ero:
End Function
Kode penggunaannya seperti ini :
Dim v As String
v = VersiOffice("Word")
If v <> "" Then
MsgBox ("Microsoft Word versi " & v)
Else
MsgBox ("Microsoft Word tidak ter-install")
End If
Dapat dilihat contoh diatas digunakan untuk mendeteksi Word, maka juga bisa digunakan untuk Excel, PowerPoint, Access, dll
