VBA SendKeys跨窗口失效及PDF切换宏单页滚动问题求助

看起来你的核心问题是翻页操作只绑定了第一个PDF的窗口，没有对第二个PDF执行相同的指令。结合你给出的API声明，我来给你调整代码逻辑，确保两个PDF都能完成翻页：

首先，我们需要补充几个关键API来实现对PDF窗口的消息发送（模拟翻页），然后明确针对两个PDF窗口分别执行操作。

第一步：补全必要的API声明 #

除了你已有的BringWindowToTop和FindWindow，我们还需要SendMessage来模拟键盘翻页，以及Sleep来确保窗口有足够时间激活：

Private Declare PtrSafe Function BringWindowToTop Lib "user32" (ByVal lngHWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' 翻页相关常量
Private Const WM_KEYDOWN As Long = &H100
Private Const VK_NEXT As Long = &H22 ' PageDown键，对应翻下一页

第二步：封装PDF窗口句柄获取函数 #

不同PDF阅读器的窗口类名不同（比如Adobe Acrobat是AcrobatSDIWindow，Foxit Reader是FoxitReader），这个函数可以帮你适配常见阅读器：

Function GetPDFWindowHandle(pdfTitle As String) As LongPtr
    ' 先尝试查找Adobe Acrobat窗口
    GetPDFWindowHandle = FindWindow("AcrobatSDIWindow", pdfTitle)
    ' 如果没找到，尝试Foxit Reader
    If GetPDFWindowHandle = 0 Then
        GetPDFWindowHandle = FindWindow("FoxitReader", pdfTitle)
    End If
    ' 还可以添加其他阅读器的类名，比如Chrome的"Chrome_WidgetWin_1"（如果用Chrome打开PDF）
End Function

第三步：修改核心宏逻辑 #

现在调整你的宏，确保8次切换后，分别给两个PDF发送翻页指令，同时添加短暂等待确保窗口激活：

Sub SwitchPDFsAndTurnPages()
    Dim hWndPDF1 As LongPtr, hWndPDF2 As LongPtr
    Dim switchCycle As Integer
    
    ' 替换成你的两个PDF的窗口标题（通常是文件名）
    hWndPDF1 = GetPDFWindowHandle("文档1.pdf")
    hWndPDF2 = GetPDFWindowHandle("文档2.pdf")
    
    ' 检查窗口是否找到
    If hWndPDF1 = 0 Or hWndPDF2 = 0 Then
        MsgBox "找不到指定的PDF窗口，请确认两个PDF都已打开！"
        Exit Sub
    End If
    
    Do While True ' 可以添加终止条件，比如按ESC退出
        ' 执行8次窗口切换
        For switchCycle = 1 To 8
            BringWindowToTop hWndPDF1
            Sleep 200 ' 等待200毫秒确保窗口激活，可根据电脑速度调整
            BringWindowToTop hWndPDF2
            Sleep 200
        Next switchCycle
        
        ' 给第一个PDF翻页
        BringWindowToTop hWndPDF1
        Sleep 100
        SendMessage hWndPDF1, WM_KEYDOWN, VK_NEXT, 0&
        
        ' 给第二个PDF翻页
        BringWindowToTop hWndPDF2
        Sleep 100
        SendMessage hWndPDF2, WM_KEYDOWN, VK_NEXT, 0&
        
        ' 终止条件：按ESC键退出循环
        If GetAsyncKeyState(vbKeyEscape) < 0 Then
            MsgBox "宏已终止"
            Exit Do
        End If
    Loop
End Sub

额外优化：针对Acrobat的精准翻页 #

如果直接给主窗口发送消息无效，可能需要定位到Acrobat内部的预览控件（类名AVL_AVView），修改翻页逻辑如下：

' 新增获取Acrobat内部预览控件的函数
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr

Function GetAcrobatViewHandle(parentWnd As LongPtr) As LongPtr
    GetAcrobatViewHandle = FindWindowEx(parentWnd, 0, "AVL_AVView", vbNullString)
End Function

' 在翻页部分替换成：
Dim viewWnd1 As LongPtr, viewWnd2 As LongPtr
viewWnd1 = GetAcrobatViewHandle(hWndPDF1)
viewWnd2 = GetAcrobatViewHandle(hWndPDF2)

If viewWnd1 <> 0 Then SendMessage viewWnd1, WM_KEYDOWN, VK_NEXT, 0&
If viewWnd2 <> 0 Then SendMessage viewWnd2, WM_KEYDOWN, VK_NEXT, 0&

关键修改说明 #

• 明确针对两个窗口操作：不再只对第一个PDF执行翻页，而是分别获取两个窗口句柄并发送翻页消息
• 添加窗口激活等待：用Sleep避免窗口切换太快导致消息发送失败
• 适配不同阅读器：通过类名查找窗口，兼容常见PDF软件

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