请教：VBA用word打开PDF出现页眉了

Question

现有多个PDF文档，PDF文档里有数据表格，想用VBA把PDF的数据copy到Excel里，但是直接打开复制效果不好，所以借助word，用word打开PDF，然后VBA代码实现复制word中的文字到Excel，但是现在遇到一个问题，就是其中有几个PDF文件用word打开后，有一些内容显示到word的页眉里面了，复制的时候页眉里的内容复制不到，请教您我该怎么操作能成功借助word复制PDF里所有文字！非常感谢您

或者有没有其他思路（或者不用word），由于公司开发环境限制，只能用VBA，用不了Python等其他语言

Answer 1

让阿豪来帮你解答，本回答参考chatgpt3.5编写提供，如果还有疑问可以评论或留言

问题分析：

1. 目标：将多个PDF文档中数据表格的内容复制到Excel中。
2. 方案：借助Word打开PDF文档，然后用VBA代码实现复制Word中的文字到Excel。但是有些PDF文件中的内容出现在Word页面页眉中，无法直接复制。需要找到一种方法将页眉中的内容也复制到Excel中。 解决方案：
3. 直接复制Word文档中的内容。这种方式需要手动处理页眉中的内容，将页眉中的内容手动复制到文档的正文部分，然后再进行复制。
4. 借助Word对象模型，使用VBA代码将页眉中的内容复制到Excel中。此方法需要编写一些代码来访问Word中的页眉并将内容复制到Excel中。具体实现步骤如下： 1）打开Word文档，访问页眉内容。 2）将页眉中的数据从Word复制到Excel中。 3）关闭Word文档。
5. 使用PDF转换工具将PDF文档转换成Excel文档，然后处理Excel文档中的内容。这种方法可以避免受到Word中的限制，但需要一个可以将PDF转换成Excel的工具。 代码实现： 以下是使用Word对象模型将页眉中的内容复制到Excel中的示例代码：

Sub CopyTableFromWordToExcel()
    Dim AppWord As Object 'Word对象
    Dim Doc As Object 'Word文档对象
    Dim Range As Object '文档中的范围对象
    Dim Header As Object '文档页眉对象
    Dim TableRange As Object '表格范围对象
    Dim Table As Object '表格对象
    Dim ExcelApp As Object 'Excel对象
    Dim ExcelBook As Object 'Excel工作簿对象
    Dim ExcelSheet As Object 'Excel工作表对象
    Dim RowCount As Long '表格行数
    Dim ColumnCount As Long '表格列数
    Dim i As Long '循环变量
    
    '打开Word文档
    Set AppWord = CreateObject("Word.Application")
    Set Doc = AppWord.Documents.Open("C:\test.docx")
    
    '访问文档页眉
    Set Header = Doc.Sections(1).Headers(wdHeaderFooterPrimary).Range
    
    '将页眉中的内容复制到Excel中
    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelBook = ExcelApp.Workbooks.Add
    Set ExcelSheet = ExcelBook.Worksheets(1)
    
    '查找页眉中的表格对象
    For Each Table In Header.Tables
        '将表格内容复制到Excel中
        RowCount = Table.Rows.Count
        ColumnCount = Table.Columns.Count
        Set TableRange = Table.Range
        TableRange.Copy
        ExcelSheet.Cells(1, 1).Select
        ExcelSheet.Paste
        '移动光标到下一个单元格
        For i = 1 To RowCount * ColumnCount
            ExcelApp.ActiveCell.Offset(0, 1).Activate
            If ExcelApp.ActiveCell.Column = ColumnCount Then
                ExcelApp.ActiveCell.Offset(1, -ColumnCount).Activate
            End If
        Next i
    Next Table
    
    '关闭Word文档
    Doc.Close False
    AppWord.Quit
    
    '保存Excel文件
    ExcelBook.SaveAs "C:\test.xlsx"
    
    '关闭Excel文件
    ExcelBook.Close False
    ExcelApp.Quit
    
    '释放对象
    Set Table = Nothing
    Set TableRange = Nothing
    Set Header = Nothing
    Set Range = Nothing
    Set Doc = Nothing
    Set AppWord = Nothing
    Set ExcelSheet = Nothing
    Set ExcelBook = Nothing
    Set ExcelApp = Nothing
End Sub

注意事项： 1. 需要将代码中的文档路径和文件名修改为实际的路径和名称。 2. 需要将代码中的Excel文件保存路径和文件名修改为实际的路径和名称。 3. 需要将Word和Excel的引用库添加到VBA项目中。打开VBA编辑器，在工具菜单中选择引用，然后勾选Microsoft Word 16.0 Object Library和Microsoft Excel 16.0 Object Library。 4. 在复制过程中，需要根据表格的行数和列数来移动光标，以确保表格内容可以正确地复制到Excel中。 总结： 本问题通过使用Word对象模型访问文档中的页眉对象，将页眉中的内容复制到Excel中。需要注意在复制过程中处理表格的行数和列数，以确保数据可以正确地复制到Excel中。