如何更新VBA代码以适配64位Windows系统正常运行

这段代码是32位VBA环境下的Win32 API声明，直接在64位Office中运行必然触发编译错误，核心问题有两点：

• 64位VBA强制要求所有外部API声明必须添加PtrSafe关键字，否则直接判定为语法错误
• 旧声明中窗口句柄(hWnd)、指针类参数/返回值全部使用4字节长度的Long类型，64位系统下这类数据长度为8字节，类型长度不匹配会导致内存调用错误。

通过VBA内置的版本编译常量做分支声明，同一段代码可自动适配32位、64位Office环境；同时替换64位环境下非指针安全的旧API为官方推荐的Ptr后缀版本，避免窗口样式修改类操作失效。
直接将原有模块中的API声明替换为以下代码即可：

' 代码放置在标准模块中
#If VBA7 Then
    ' VBA7（Office 2010及以上版本）64位/32位通用声明
    Private Declare PtrSafe Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, _
         ByVal lpWindowName As String) As LongPtr

    Private Declare PtrSafe Function GetWindowLongPtrA Lib "user32" _
        (ByVal hWnd As LongPtr, _
         ByVal nIndex As Long) As LongPtr

    Private Declare PtrSafe Function SetWindowLongPtrA Lib "user32" _
        (ByVal hWnd As LongPtr, _
         ByVal nIndex As Long, _
         ByVal dwNewLong As LongPtr) As LongPtr

    ' 别名映射，兼容原有代码中对GetWindowLongA/SetWindowLongA的调用，无需修改后续业务代码
    Private Declare PtrSafe Function GetWindowLongA Lib "user32" Alias "GetWindowLongPtrA" _
        (ByVal hWnd As LongPtr, _
         ByVal nIndex As Long) As LongPtr
    Private Declare PtrSafe Function SetWindowLongA Lib "user32" Alias "SetWindowLongPtrA" _
        (ByVal hWnd As LongPtr, _
         ByVal nIndex As Long, _
         ByVal dwNewLong As LongPtr) As LongPtr
#Else
    ' VBA6（Office 2007及更早版本）32位环境声明
    Private Declare Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, _
         ByVal lpWindowName As String) As Long

    Private Declare Function GetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, _
         ByVal nIndex As Long) As Long

    Private Declare Function SetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, _
         ByVal nIndex As Long, _
         ByVal dwNewLong As Long) As Long
#End If

• 代码中所有存储窗口句柄、API返回指针值的变量，需要将类型从原有的Long改为LongPtr，LongPtr会根据运行环境自动适配长度：32位下为4字节Long，64位下为8字节LongLong
• 普通数值类参数（比如示例中代表窗口样式索引的nIndex、普通常量值）不需要修改类型，保持Long即可，不要盲目把所有Long替换为LongLong，否则反而会触发参数不匹配错误。

内容的提问来源于stack exchange，提问作者Ham