用Word VBA找到另一个打开的APP window的ID Window

Question

编辑：“我在发布这个问题后意识到代码实际上并没有切换到另一个 window，但它确实获得了 Window ID 号。因此我修改了问题以反映代码的实际作用。我确实让代码以 64 的形式工作位，一旦我在底部处理了 Eugene Astafiev 的回答中的建议，就会发布答案。”

我在多个线程中找到了这段代码，但它是 32 位的，我试图将它转换为 64 位。

这是我所拥有的：

Option Explicit

Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As LongPtr) As Long
Private Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As Long
Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal wCmd As Long) As LongPtr
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hWnd As LongPtr) As Boolean

Private Const GW_HWNDNEXT = 2

Private Sub Test()

    Dim lhWndP As Long
    If GetHandleFromPartialCaption(lhWndP, "Excel") = True Then
        If IsWindowVisible(lhWndP) = True Then
          MsgBox "Found VISIBLE Window Handle: " & lhWndP, vbOKOnly + vbInformation
        Else
          MsgBox "Found INVISIBLE Window Handle: " & lhWndP, vbOKOnly + vbInformation
        End If
    Else
        MsgBox "Window 'Excel' not found!", vbOKOnly + vbExclamation
    End If

End Sub

Private Function GetHandleFromPartialCaption(ByRef lWnd As Long, ByVal sCaption As String) As Boolean

    Dim lhWndP As Long
    Dim sStr As String

    GetHandleFromPartialCaption = False
    lhWndP = FindWindow(vbNullString, vbNullString) 'PARENT WINDOW

    Do While lhWndP <> 0
        sStr = String(GetWindowTextLength(lhWndP) + 1, Chr$(0))
        GetWindowText lhWndP, sStr, Len(sStr)
        sStr = Left$(sStr, Len(sStr) - 1)
        If InStr(1, sStr, sCaption) > 0 Then
            GetHandleFromPartialCaption = True
            lWnd = lhWndP
            Exit Do
        End If
        lhWndP = GetWindow(lhWndP, GW_HWNDNEXT)
    Loop

End Function

当我运行 SUB 时，它到达 Function 的最后一行，我收到此错误消息：

我花了很多时间才找到对声明的 64 位调整，我错过了什么吗？

更新：发布问题后，我发现我没有将FindWindow Function 声明为 LongPtr。

我根据我在jkp-ads.com中找到的内容对其进行了更正，但现在我在开头收到Type mismatch错误。

Answer 1

要为所有版本的 Office 编写，请结合使用较新的VBA7和Win64条件编译器常量。

VBA7确定代码是否在 VB 编辑器版本 7（Office 2010+ 中提供的 VBA 版本）中运行。

#If VBA7 Then 
 Declare PtrSafe Sub... 
#Else 
 Declare Sub... 
#EndIf

推荐使用带有PtrSafe关键字的声明语句。 包含PtrSafe的 Declare 语句在 32 位和 64 位平台上的VBA7开发环境中都能正常工作。

Win64确定正在运行的 Office 版本（32 位或 64 位）。

#if Vba7 then 
'  Code is running in the new VBA7 editor 
     #if Win64 then 
     '  Code is running in 64-bit version of Microsoft Office 
     #else 
     '  Code is running in 32-bit version of Microsoft Office 
     #end if 
#else 
' Code is running in VBA version 6 or earlier 
#end if 

在64 位 Visual Basic for Applications 概述文章中阅读更多相关信息。