如何通过Excel VBA提取PDF中含指定关键词的整行文本？

由于没有Acrobat专业版权限，无法使用官方Acrobat对象模型，我们可以在你现有代码的基础上，通过SendKeys结合剪贴板操作完成整行文本的提取，具体方案如下：

核心逻辑 #

1. 定位到目标文本后，用SendKeys选中整行内容
2. 将选中内容复制到剪贴板
3. 切换回Excel窗口，把剪贴板内容粘贴到指定工作表单元格

完整VBA代码 #

Sub ExtractPDFRowToExcel()
    Dim PDF_path As String
    Dim TempFolder As String, SA_File_Name As String
    Dim PDFSearchString As String
    Dim ws As Worksheet
    
    ' 替换为你的临时文件夹路径与PDF文件名
    TempFolder = "C:\YourTempFolder\"
    SA_File_Name = "target_file.pdf"
    ' 指定要粘贴的目标工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    PDF_path = TempFolder & SA_File_Name ' 拼接PDF完整路径

    ' 打开PDF文件
    ThisWorkbook.FollowHyperlink PDF_path

    ' 等待PDF完全加载（可根据实际加载速度调整等待时长）
    Application.Wait (Now + TimeValue("0:00:03"))

    ' 唤起PDF查找框
    SendKeys "^f", True
    
    ' 输入搜索字符串并执行搜索
    PDFSearchString = "Security Audits"
    SendKeys PDFSearchString, True
    SendKeys "{Enter}", True
    
    ' 等待搜索结果定位完成
    Application.Wait (Now + TimeValue("0:00:01"))
    
    ' 选中当前整行：先移至行首，再按住Shift+End选中整行内容
    SendKeys "{Home}", True
    SendKeys "+{End}", True
    
    ' 复制选中内容到剪贴板
    SendKeys "^c", True
    
    ' 等待复制操作完成
    Application.Wait (Now + TimeValue("0:00:01"))
    
    ' 切换回当前Excel工作簿窗口
    AppActivate ThisWorkbook.Name
    
    ' 将剪贴板内容粘贴到指定单元格（示例为Sheet1的A1单元格）
    ws.Range("A1").PasteSpecial Paste:=xlPasteValues
    
    ' 可选：关闭PDF窗口
    SendKeys "%{F4}", True
End Sub

关键注意点 #

• 等待时长调整：不同设备的PDF加载速度有差异，需根据实际情况修改Application.Wait的时间参数，避免因加载不充分导致SendKeys失效
• 窗口激活状态：运行宏时需确保PDF窗口处于前台，无其他窗口遮挡，否则SendKeys可能发送到错误窗口
• 快捷键兼容性：上述快捷键基于Adobe Reader DC，若使用其他PDF阅读器，需对应调整选中整行的快捷键
• 剪贴板安全：运行宏前确认剪贴板内容可被覆盖，避免重要数据丢失

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