Срочно! Помогите вставить таблицу в Word

[Rusakov]

Добрый день!

Проблема в следующем:

на VB5 создаю документ, создаю таблицу, потом возникает необходимость пропустить пару строк, и снова добавить таблицу. Так когда создаю новую таблицу то весь документ стирается, и остается только последняя.

Set objword = New Word.Application
objword.Visible = True
Set wDoc = objword.Documents.Add
wDoc.Activate
Set wTable = wDoc.Tables.Add(wDoc.Range(), 4, 1)

‘ Тут идет заполнения таблицы

‘ Затем курсор вывожу из таблицы
wDoc.ActiveWindow.Selection.MoveDown Unit:=wdLine, Count:=6
wDoc.ActiveWindow.Selection.TypeParagraph

Создаю вторую

Set wTable2 = wDoc.Tables.Add(wDoc.Range(), 4, 1)

И весь документ стерт корме последней таблицы