Aşağıdaki kodları formun vb sayfasına ekle

Function OfisVersiyonKontrolu()



  Select Case SysCmd(acSysCmdAccessVer)

        Case "8.0"

           OfisVersiyonKontrolu = "97"

        Case "9.0"

           OfisVersiyonKontrolu = "2000"

        Case "10.0"

           OfisVersiyonKontrolu = "2002"

        Case "11.0"

           OfisVersiyonKontrolu = "2003"

        Case "12.0"

           OfisVersiyonKontrolu = "2007"

        Case "14.0"

           OfisVersiyonKontrolu = "2010"

        Case Else

           OfisVersiyonKontrolu = "Bulunamadı"

  End Select



End Function

Formda metin kutusuna yazdıracağın zaman

Metin = OfisVersiyonKontrolu

şeklinde kullan.

Ofis 2013 muhtemelen 15.0 olmalı, ancak emin olmadığım için koda eklemedim.