VBA来检测office版本及其相应的位

Question

我有32位和64位版本的Office 2010。如果我需要为2010 Office 32位计算机安装VSTO 2，并为2010 Office 64位计算机安装VSTO 4 64位

Public Function checkbitversion() As Variant
#If VBA7 Then
    checkbitversion = "64"
#Else
    checkbitversion = "32"
#End If
End Function 

但是对于所有的机器，它总是得到32位的结果。我需要帮助来克服这个问题。

我参考下面的MSDN文章：http://msdn.microsoft.com/en-us/library/ff700513%28v=office.11%29.aspx

Answer 1

检查HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\version\Outlook中的位值

其中，以上版本为14.0或15.0，具体取决于Outlook版本。

Answer 2

在> HERE的第二篇论坛帖子中尝试这段未经测试的代码。

Function Is64bit() As Boolean
Is64bit = Len(Environ("ProgramW6432")) > 0
End Function

他说The logic seems to be if that environment variable returns anything or not, as that parameter probably doesn't exist in the 32-bit version.

根据他的描述，如果它返回的是64位，否则就是32位。