以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何判断系统中装的是office版本号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56948)
--  作者：pcxjxjhkw
--  发布时间：2014/9/15 20:30:00
--  [求助]如何判断系统中装的是office版本号

如何判断系统中装的是office版本号，是2003？还是2007？还是2010版？

如何用代码判断

谢谢

 
--  作者：有点甜
--  发布时间：2014/9/15 20:48:00
--  

 参考

 

Dim bbs() As String = {"13|2010", "12|2007", "11|2003"}
For Each bb As String In bbs
    Dim ary() As String = bb.Split("|")
    Dim path As String = Registry.GetValue("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\" & ary(0) & ".0\\Word\\InstallRoot", "path", Nothing)
    If path IsNot Nothing Then
        msgbox(ary(1))
    End If
Next