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
 ' 創(chuàng)建一個新文檔作為目標文檔
 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
 
 ' 刪除目標文檔中的第一個空段落
 If docTarget.Paragraphs.Count > 0 Then
 docTarget.Paragraphs(1).Range.Delete
 End If
 
 ' 保存新文檔到指定路徑
 docTarget.SaveAs2 fileName:=outputPath, FileFormat:=wdFormatXMLDocument
 docTarget.Close
 
 MsgBox "表格及其上方一行內(nèi)容已經(jīng)成功提取到 " & outputPath, vbInformation
End Sub

from docx import Document
import os
 
def extract_tables(doc_path, output_path):
    # 加載原始文檔
    doc = Document(doc_path)
    new_doc = Document()
 
    # 提取表格并添加到新文檔
    for i, table in enumerate(doc.tables):
        t = new_doc.add_table(rows=1, cols=len(table.columns))
        t.style = 'Table Grid'  # 使用內(nèi)置的表格樣式，這樣會自動添加框線
        # 復制表頭
        for j, cell in enumerate(table.rows[0].cells):
            t.cell(0, j).text = cell.text
        # 復制其他行
        for row in table.rows[1:]:
            new_row = t.add_row()
            for j, cell in enumerate(row.cells):
                new_row.cells[j].text = cell.text
 
        # 除了最后一個表格外，在每個表格后添加一個空行（空段落）
        if i < len(doc.tables) - 1:
            new_doc.add_paragraph()
 
    # 保存新文檔
    new_doc.save(output_path)
 
# 使用示例
extract_tables('example.docx', 'output.docx')

from docx import Document
from docx.enum.text import WD_ALIGN_PARAGRAPH
import os
 
def extract_tables_with_titles(doc_path, output_path):
    # 加載原始文檔
    doc = Document(doc_path)
    new_doc = Document()
 
    # 提取表格并添加到新文檔
    for i, table in enumerate(doc.tables):
        # 嘗試定位并復制表格上方的居中文字
        # 查找表格前的段落
        para = table._element.getprevious()
        if para is not None and para.tag.endswith('p'):
            # 檢查該段落的格式是否為居中
            p = para.getparent()
            para_obj = [p for p in doc.paragraphs if p._element == para][0]
            if para_obj.alignment == WD_ALIGN_PARAGRAPH.CENTER:
                # 添加居中的段落到新文檔
                new_para = new_doc.add_paragraph(para_obj.text)
                new_para.alignment = WD_ALIGN_PARAGRAPH.CENTER
 
        # 添加表格
        t = new_doc.add_table(rows=1, cols=len(table.columns))
        t.style = 'Table Grid'  # 使用內(nèi)置的表格樣式，這樣會自動添加框線
 
        # 復制表頭
        for j, cell in enumerate(table.rows[0].cells):
            t.cell(0, j).text = cell.text
        # 復制其他行
        for row in table.rows[1:]:
            new_row = t.add_row()
            for j, cell in enumerate(row.cells):
                new_row.cells[j].text = cell.text
 
        # 除了最后一個表格外，在每個表格后添加一個空行（空段落）
        if i < len(doc.tables) - 1:
            new_doc.add_paragraph()
 
    # 保存新文檔
    new_doc.save(output_path)
 
# 使用示例
extract_tables_with_titles('example.docx', 'output.docx')