Sub s_chkOffice32or64()
    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