判断操作系统是32位还是64位：

Public Function OsBit() As Long

If Dir(Environ("windir") & "\SysWOW64", vbDirectory) <> "" Then

OsBit = 64

Else

OsBit = 32

End If

End Function

判断Office是32位还是64位：

Public Function OfficeBit() As Long

#If Win64 Then

OfficeBit = 64

#Else

OfficeBit = 32

#End If

End Function

测试代码:

Sub Test()

MsgBox "你当前使用的是 " & OsBit() & " 位操作系统，" & OfficeBit() & " 位Office！"

End Sub