用vba判断当前的office软件是32位还是64位

上文介绍的是手动查看office软件是32位还是64位，如果要在vba中判断当前使用的office软件是32位还是64位，可以使用如下的最简单的代码判断：

Sub QQ1722187970()
    Dim sText As String
    sText = Environ("PROCESSOR_ARCHITECTURE")
    Debug.Print sText
    If sText Like "*64*" Then
        MsgBox "当前使用的是64位office"
    ElseIf sText Like "*86*" Then
         MsgBox "当前使用的是32位office"
    End If
End Sub

其中

Environ(“PROCESSOR_ARCHITECTURE”)

返回的是当前的代码所在的软件的位数，这个是关键，它返回的并不是操作系统的位数。