Автор Тема: Как кодом VBA найти в ворд документе имеющиеся таблицы ?  (Прочитано 406 раз)

Оффлайн Посетитель 18.04.2022

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

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

Онлайн Администратор

  • Administrator
  • Сообщений: 2062
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

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

Sub Макрос()

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

End Sub