Office2010 コンパイラ定数 ついつい確かめてしまうからメモ

Option Compare Database
Option Explicit

#If VBA7 Then
    Const V = "VBA7"
#Else
    Const V = "VBA6"
#End If

#If Win64 Then
    Const W = "Win64"
#ElseIf Win32 Then
    Const W = "Win32"
#End If

Sub test()
    Debug.Print V, W
End Sub

Win7(32)+Office2010(32)   VBA7          Win32
Win7(64)+Office2010(64)   VBA7          Win64
Win7(64)+Office2010(32)   VBA7          Win32