Ms word 在Microsoft Word中提取表

我有一个Word文档，表格上有标题，表格上有备忘单值。如何创建一个宏来检测所有表（

ActiveDocument.GetCrossReferenceItems（Referencetype:=“Table”）

），并将这些表传输到新文档中？

---

MS Word文档和自动完成都有帮助。

我要告诉你一个秘密。docx文件本质上是重命名的zip文件，其中混合了一些xml来处理资产放置

---

我从来没有尝试过自己处理它，但只要使用zip和xml进行足够多的探索，您就会找到您需要的内容。

此过程将复制活动文档中的所有表并粘贴到新文档中：

Sub CopyAllTablesToNewDoc()

    Dim docSource As Document
    Dim docDest As Document
    Dim tbl As Table

    Set docSource = ActiveDocument
    Set docDest = Documents.Add

    For Each tbl In docSource.Tables
        tbl.Range.Copy
        docDest.Paragraphs(docDest.Paragraphs.Count).Range.Paste
        docDest.Range.InsertParagraphAfter
    Next tbl

End Sub

注意：它不会复制表格标题