Извлечение таблиц в Microsoft Word

Question

У меня есть документ Word с подписями к таблицам, и таблицы имеют значения шпаргалки. Как создать макрос, который обнаруживает все таблицы (ActiveDocument.GetCrossReferenceItems(Referencetype:="Table")), и переносить таблицы в новый документ? Документация MS Word и автозаполнение не помогали.

Answer 1

Эта процедура копирует все таблицы из активного документа и вставляет в новый документ:

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

Примечание: он не копирует заголовки таблицы.

Answer 2

Я собираюсь рассказать вам секрет. Файлы docx - это, по сути, переименованные файлы zip с небольшим количеством XML-файлов, добавленных для размещения ресурсов.

http://msdn.microsoft.com/en-us/library/aa982683%28v=office.12%29.aspx

Я никогда не пытался справиться с этим сам, но с достаточным количеством возни с zip и xml вы должны найти то, что вам нужно.