word vba提取所有表格到1个新的文档中

word vba提取所有表格到1个新的文档中

Sub ExtractTables()
Dim docSource As Document
Dim docTarget As Document
Dim tbl As Table
Dim i As Long
' 设置源文档和目标文档
Set docSource = ActiveDocument
Set docTarget = Documents.Add

' 遍历源文档中的所有表格
For i = 1 To docSource.Tables.Count
    Set tbl = docSource.Tables(i)
    tbl.Range.Copy ' 复制表格

    ' 粘贴到目标文档
    With docTarget.Content
        .Collapse Direction:=wdCollapseEnd
        .Paste
    End With

    ' 在表格后面添加一个段落，以便分隔表格
    docTarget.Content.InsertParagraphAfter
Next i

End Sub