Вопрос по таблице в Worde - VB

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

Формирую отчет в ворде. Кол-во,ширина строк,столбцов в таблице изменяется динамически. Подскажите, пож-ста, каким образом переносить часть таблицы на новую страницу вместе с шапкой, если ее размеры выходят за границы. каким образом перевести твипы в вордовские поинты, не используя вордовские функции.

Решение задачи: «Вопрос по таблице в Worde»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> tbl <font color="blue">As</font> Table
    <font color="blue">Dim</font> p <font color="blue">As</font> Paragraph
    
    <font color="blue">Set</font> tbl = ActiveDocument.Tables(<font color="darkblue"><b>2</b></font>)
    
    <font color="blue">For</font> <font color="blue">Each</font> p <font color="blue">In</font> tbl.Range.Paragraphs
        p.KeepWithNext = True
        p.KeepTogether = False
    <font color="blue">Next</font> p
                        