以VBA Word PDF Table to Excel为主题的介绍

简介

VBA可以用来将Word中的PDF表格导入到Excel中。本文将介绍如何使用VBA代码实现这一操作，以及相关代码示例。

实现步骤

1. 创建一个新的Excel文档，命名为“table.xlsx”。

2. 在Word文档中选中要导入的表格，然后按下“Ctrl + C”组合键。

3. 在Excel文档中，打开Visual Basic编辑器（VBE），并在“项目资源管理器”窗格中，右键单击“table.xlsx”节点，然后选择“插入”>“模块”。

4. 在新的模块中输入以下代码：

Sub ImportTableFromWord()
     Dim TableRange As Range
     Dim WordApp As Object
     Dim WordDoc As Object
     
     '打开Word文档
     Set WordApp = CreateObject("Word.Application")
     Set WordDoc = WordApp.Documents.Open("path\to\document.docx")
     
     '选中要导入的表格
     Set TableRange = WordDoc.Range.Tables(1).Range
     
     '将表格复制到剪贴板
     TableRange.Copy
     
     '将表格粘贴到Excel
     ThisWorkbook.Sheets("Sheet1").Range("A1").PasteSpecial
    
    '关闭Word文档
    WordDoc.Close False
    Set WordDoc = Nothing
    Set WordApp = Nothing
    
    '选择剪贴板的所有内容
    Application.CutCopyMode = False
End Sub

5. 将代码中的“path\to\document.docx”替换为实际的Word文档路径，如果要导入当前文档中的表格，则可以使用以下代码替换：

Set WordDoc = WordApp.ActiveDocument

6. 在Excel中按下“Alt + F8”组合键，然后选择“ImportTableFromWord”，运行代码即可将Word文档中的表格导入到Excel中。

代码片段

Sub ImportTableFromWord()
     Dim TableRange As Range
     Dim WordApp As Object
     Dim WordDoc As Object
     
     '打开Word文档
     Set WordApp = CreateObject("Word.Application")
     Set WordDoc = WordApp.Documents.Open("path\to\document.docx")
     
     '选中要导入的表格
     Set TableRange = WordDoc.Range.Tables(1).Range
     
     '将表格复制到剪贴板
     TableRange.Copy
     
     '将表格粘贴到Excel
     ThisWorkbook.Sheets("Sheet1").Range("A1").PasteSpecial
    
    '关闭Word文档
    WordDoc.Close False
    Set WordDoc = Nothing
    Set WordApp = Nothing
    
    '选择剪贴板的所有内容
    Application.CutCopyMode = False
End Sub

代码片段按照markdown标明。