Помогите пожалста в ворде прочертить таблицу до конца листа

[Luka83]

Моя задача заключается в следующем. В таблицу в ворде нужно занести массив данных. После последней записи нужно прочертить таблицу с пустыми полями до конца листа. я пишу:

with selection
kstr= .information(wdActiveEndPageNumber)
Do until .information(wdActiveEndPageNumber)<>kstr
ActiveDocument.Tables(1).rows.Add
.endKey Unit:=wdstory
Loop
End with

Таким образом таблица рисуется, если записи умещаются на одном листе. А если записей на 2 или более листов, то таблица с пустыми ячейками не прорисовывается до конца листа.
Подскажите пожалста в чем дело? где не так?
Спасибо заранее

[bi-lya]

Людмила, наверное нужно выставлять курсор на ту страницу, в которой необходимо добавлять строки таблицы

[Luka83]

Все гениальное просто........ спасибо за направление мысли в нужное русло))))))