Python和VBA批量提取Word中的表格

PythonFun

已于 2024-02-13 20:17:36 修改

阅读量4.7k

点赞数 20

CC 4.0 BY-SA版权

分类专栏： python VBA 编程小项目文章标签： python word c#

于 2024-02-13 19:03:30 首次发布

本文链接：https://blog.csdn.net/henanlion/article/details/136108615

本文介绍了使用VBA和Python两种方法批量提取Word文档中的表格，包括代码实现、功能分析和使用步骤。VBA适用于现有Word文档，Python则通过python-docx库处理，但两者都无法完整提取样式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

表格在word文档中常见的文档元素之一。操作word文件时有时需要提取文件中多个表格的内容到一个新的文件，甚至有时还会要提取题注信息。

今天，给大家分享两种批量提取文档中表格的两种方法，分别是VBA法和Python法两种。

一、VBA法提取word中的表格

1. 代码实现

VBA（Visual Basic for Applications）操作Word文件时，可以执行包括创建、打开、保存、修改文本和格式等多种任务。今天，我们使用VBA来批量提取当前文件中的表格，在每个表格中间添加一个空行。实现代码如下：

 Sub ExtractTablesAndPreviousRowToNewFile()
 Dim docSource As Document
 Dim docTarget As Document
 Dim tbl As Table
 Dim rng As Range
 Dim outputPath As String
 Dim fileName As String
 
 ' 设置输出文件名和路径
 fileName = "output.docx"
 outputPath = ActiveDocument.Path & "\" & fileName
 
 ' 当前文档设置为源文档
 Set docSource = ActiveDocument
 ' 创建一个新文档作为目标文档
 Set docTarget = Documents.Add
 
 For Each tbl In docSource.Tables
 
 ' 复制表格
 tbl.Range.Copy
 docTarget.Content.InsertParagraphAfter
 docTarget.Content.Paragraphs.Last.Range.Paste
 
 ' 在表格后添加一个空行
 docTarget.Content.InsertParagraphAfter
 docTarget.Content.Paragraphs.Last.Range.InsertParagraphAfter
 Next tbl
 
 ' 删