主题：[求助]如何判断系统中装的是office版本号

 参考

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