Word VBA: Как в Word найти таблицу на нужной странице и добавить строки?

[Manticor]

Добрый день. Есть документ Word. Каким образом средствами VBA найти таблицу, которая находится на 3 странице, и вставить в нее строки в соотв. с колонками?

[вложение удалено администратором]

[Администратор]

Sub Поиск_и_вставка()

    Dim tbl As Table
   
   
    '1. Цикл по всем таблицам в файле в поисках нужной таблицы.
    For Each tbl In ActiveDocument.Tables
        ' Если начало таблицы находится на странице 3, то выход из цикла, при этом таблице,
            ' которая находится на странице 3, будет присвоено vba-имя "tbl".
        If ActiveDocument.Range(Start:=tbl.Range.Start, End:=tbl.Range.Start). _
                Information(wdActiveEndPageNumber) = 3 Then
            Exit For
        End If
    Next tbl
   
    '2. Проверка, была ли найдена нужная таблица.
    If tbl Is Nothing Then
        MsgBox "На странице 3 нет таблицы.", vbExclamation
        Exit Sub
    End If
   
    '3. Вставка в конец таблицы строки.
    tbl.Rows.Add
   
End Sub

[Manticor]

Спасибо