Mendeteksi Versi MS Office

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