Copy word table vba

Sorry in advance for my bad English and may be simple question.
I want to copy Table object into Dictionary for place it later in another Word document. All works are in Excel VBA.
I try it for copy table:

Dim dict As Dictionary
Dim table1 As Word.table
Set table1 = Word.Application.ActiveDocument.Tables.Item(tableNum)                                            
dict.Add "SampleText","MyText"
dict.Add "tab1", table1

After it I close this document and open another. In it, I try to insert data from Dictionary to Bookmarks:

dim prilDoc As Word.Document
...
prilDoc.Bookmarks.Item("SampleText").Range.Text=dict.Item("SampleText")    

this (insert text) work fine, but I don’t know, how to place Table object on Bookmark place, because I don’t know VBA Word Object Model. I tryed some approaches, but can’t find solution. I think there are two problems:

1. When I put Table object into Dictionary, I in fact, copyed only reference to Table object in first Word document. And when I close this document and I try to get it from Dictionary object is deleted and I can’t work with it. In Java I can deep cloning object, but I don’t know how to do it in VBA. May be here must be use fully another approach.

2. I don’t know, how correctly must I insert Table object in new Word document.

Thanks in advance.

The code below does copy the tables to a new document, but they end up as nested tables.  In the original document, there are 3 paragraphs between the two tables.  How can I unselect the first table after I post it in the new document, add a paragraph after the table, and then paste the second table?

Sub ExtractTablesFromOneDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
  Dim o As Paragraph
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Debug.Print objTable.Title
    Selection.Copy
 
    '  Paste tables to new document in rich text format.
    Set objRange = objNewDoc.Range
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
  Next objTable
 
End Sub

Open in new window

Sub макрос()

        Dim docSrc As Document, docRes As Document, rngTable As Range
    Dim strFN As String

        ‘1. Отключение монитора. Может это уменьшит мерцание и может ускорит макрос.
    Application.ScreenUpdating = False

    ‘2. Юзер выбирает файл, в котором таблица.
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add «Документы Word», «*.docx»
        If .Show = 0 Then
            Exit Sub
        End If
        strFN = .SelectedItems(1)
    End With

        ‘3. Присваивание имени «docRes» активного файлу (в который надо вставить таблицу).
        ‘ После открытия другого файла, он станет неактивным.
    Set docRes = ActiveDocument

        ‘4. Открытие файла, в котором таблица. При этом присваиваем файлу имя «docSrc».
    Set docSrc = Documents.Open(FileName:=strFN)

        ‘5. Копирование таблицы из одного файла в другой.
    With docRes.Range.find
        ‘ Текст-метка, куда надо вставить таблицу.
        .Text = «~таблица~»
        ‘ Поиск текста-метки.
        .Execute
        ‘ Присваиваем имя «rngTable» фрагменту, в котором находится текст-метка.
            ‘ Parent — это найденный текст.
        Set rngTable = .Parent
    End With

        ‘6. Убираем цветовую заливку.
    rngTable.HighlightColorIndex = wdNoHighlight

        ‘7. Вставка таблицы. Копируется первая таблица из файла-источника.
    docSrc.Tables(1).Range.Copy
    rngTable.Paste

        ‘8. Очистка буфера обмена. Если таблица большая, то при закрытии ворда
        ‘ будет сообщение, что в буфере много данных.
        ‘ Просто копируем первый символ.
    docSrc.Range.Characters(1).Copy

        ‘9. Закрытие файла-источника.
    docSrc.Close SaveChanges:=False

        ’10. Включение монитора.
    Application.ScreenUpdating = True

    End Sub

[свернуть]