Как кодом VBA найти в ворд документе имеющиеся таблицы ?

Автор Посетитель 18.04.2022, 18 апреля 2022, 17:08

Посетитель 18.04.2022

Как кодом VBA найти в ворд документе имеющиеся таблицы ?
С указанием номеров страниц, где они есть?
И как к ним обращаться кодом? (через имя таблицы или через номер)

Если не в тот раздел форума поместил вопрос - подскажите в какой, спасибо?

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

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Вот так можно пройтись по всем таблицам, которые есть в активном документе (этот документ отображается на мониторе) и узнать, на какой странице начинается таблица.
Но здесь нужно учитывать режим просмотра документа (Разметка страницы, Веб-документ и т.д.) - тяжело, а может и невозможно предсказать, какой номер страницы выдаст Ворд.
Плюс ещё что-нибудь может дать неправильный номер страницы, например, если есть сноски, которые перетекают на следующую страницу.

Sub Макрос()

    Dim Таблица As Table
   
   
    For Each Таблица In ActiveDocument.Tables
        Debug.Print Таблица.Range.Information(wdActiveEndPageNumber)
    Next Таблица

End Sub