Скопировать таблицу Word - VB

Формулировка задачи:

Как можно скопировать таблицу Word? Т.е. создать таблицу и заполнить ее данными? Таблица готовая уже есть.

Решение задачи: «Скопировать таблицу Word»

textual
                            Листинг программы 
                        
 
                        
                          
                    
'Открытие документа
 Function OpenDocum()
Dim NumPart As Integer
Err.Clear
 
'Смена стрелки мышки на часы
Screen.MousePointer = 11
 
On Error GoTo Notloaded
 
'Проверка на открытие WORD - а
    Set MyWord = GetObject(, " Word.Application")
 
Notloaded:
'Если Word не открыт
 If Err.Number = 429 Then
' Открытие WORD - а
Set MyWord = CreateObject("Word.Application")
    ElseIf Err.Number <> 0 Then
'Выдается сообщение об ошибке
MsgBox Err.Description & vbCrLf & "Error"
Screen.MousePointer = 0
        Exit Function
    End If
'Отменяется показ документа на экране, все будет происходить невидимо для пользователя
MyWord.PrintPreview = False
 
'Открытие стандартного документа,созданного мной, как  document1 или document2……
 
MyWord.Documents.Add "D:\КиРпИчИ\ВОРД\Создание док с таб\Files\blank.doc", False
 
'Преход в функцию для печати необходимого текста вдокумент
PrintReportinWord
 
End Function