VBA批量将Word打开的PDF内容复制到Excel时内容丢失的问题

问题核心原因 #

• 使用Selection对象操作文本不稳定，尤其是Word后台处理PDF渲染时，选中操作可能未完全完成
• 固定时长的Application.Wait无法适配不同大小PDF的加载/渲染速度，导致复制时内容还未完全就绪
• 直接粘贴可能因格式冲突导致部分内容被过滤

修正后的代码 #

Sub anothertest()
    Dim WordApp As Object, WordDoc As Object
    Dim strFile As String
    Dim i As Integer, iLastFile As Long
    Dim shtData As Worksheet, shtTemp As Worksheet, shtYear As Worksheet
    
    ' 创建Word实例
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    
    Set shtYear = Sheets("2024")
    Set shtTemp = Sheets("temp data")
    Set shtData = Worksheets("Data")
    
    ' 获取最后一行文件路径
    iLastFile = shtYear.Range("A1").End(xlDown).Row
    
    For i = 2 To iLastFile
        strFile = shtYear.Cells(i, 1).Value
        
        Application.DisplayAlerts = False
        ' 打开PDF文件，自动适配格式
        Set WordDoc = WordApp.Documents.Open(Filename:=strFile, Format:=wdOpenFormatAuto)
        
        ' 循环等待文档完全加载就绪
        Do While WordDoc.Ready = False Or WordApp.BackgroundBusy = True
            DoEvents
        Loop
        
        ' 清空临时工作表
        shtTemp.UsedRange.Clear
        For Each shp In shtTemp.Shapes
            shp.Delete
        Next shp
        
        ' 直接复制文档全部内容，替代Selection操作
        WordDoc.Content.Copy
        
        ' 等待剪贴板就绪，让系统处理复制操作
        DoEvents
        
        ' 粘贴为纯文本格式，避免格式干扰
        shtTemp.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone
        
        Application.DisplayAlerts = True
        
        ' 数据挖掘逻辑放在这里
        With shtTemp
            ' 你的检测和数据处理代码
        End With
        
nexti:
        ' 关闭文档，不保存
        WordDoc.Close SaveChanges:=wdDoNotSaveChanges
        Set WordDoc = Nothing
        DoEvents
    Next i
    
    ' 退出Word
    WordApp.Quit
    Set WordApp = Nothing
End Sub

关键优化点 #

• 用WordDoc.Content.Copy替代Selection.WholeStory + Selection.Copy，直接操作文档内容，避免选中状态的不确定性
• 新增循环等待WordDoc.Ready和WordApp.BackgroundBusy，确保PDF完全加载渲染后再复制，比固定Wait更灵活
• 使用PasteSpecial粘贴为值和数字格式，避免格式冲突导致的内容丢失
• 用DoEvents让系统及时处理后台操作，确保复制粘贴的异步操作完成

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