VBA Access Цикл по страницам Word

[Ethex]

Доброго времени суток
Хочу узнать как организовать цикл по страницам вордовского документа
Что-нибудь наподобие

For Each pg in doc.Страница

В дальнейшем внутри этого цикла должно быть возможно сделать цикл по таблицам, имеющемся на странице

For Each tdf In pg.Tables

Я могу использовать процедуру разбивки на страницы, организовать список файлов(страниц), и далее идти по файлам, а в конце их удалить. Но хотелось бы знать более лаконичный способ

[Ethex]

Есть идея
Попробовать выделить текст на странице, а дальше создавать цикл по таблицам внутри Range
Попробую реализовать и отпишусь что вышло

[Ethex]

Сообщение от Ethex

Попробовать выделить текст на странице, а дальше создавать цикл по таблицам внутри Range

Это получилось

Public Sub Test()
Dim app As Word.Application, wd As Word.Document, wr As Word.Range
Dim wt
Dim db As DAO.Database, rs As DAO.Recordset
Dim i As Long, cnt As Long
Set app = New Word.Application
app.Visible = False
Set wd = app.Documents.Open(Me.Поле0.Value)
MsgBox wd.Tables(1).Columns.Count
Set wr = wd.Range
Set db = CurrentDb
db.Execute "CREATE TABLE Test (1 VARCHAR, 2 VARCHAR, 3 VARCHAR)"
Set rs = db.OpenRecordset("Test")
i = 1
cnt = wd.Content.ComputeStatistics(wdStatisticPages)
   Do Until i > cnt
      If wd.Tables.Count > 0 Then
         If i = cnt Then
         wr.End = wd.Range.End
         Else
         wd.ActiveWindow.Selection.GoTo wdGoToPage, wdGoToAbsolute, i + 1
         wr.End = wd.ActiveWindow.Selection.Start
         End If
         For Each wt In wr.Tables
...

Однако для того, что будет происходить далее внутри цикла, такой метод не очень себя зарекомендовал. Лучше использовать разбивку документа на страницы

[DiemonStar]

а чем не устраивает

For Each Tbl in WordDocument.Tables
          ...
Next Tbl

?

[Ethex]

DiemonStar в данном случае я к этому способу как раз и пришёл
Вордовская таблица на 20+- тысяч строк обрабатывается долго до безобразия. Разбить один документ на множество (постранично), а затем поочерёдно открывать каждый и брать данные из таблиц - сокращает время более чем ощутимо
В данном случае я имею дело с таблицами, составленными коряво (3 таблицы выглядят как одна). И любопытства ради захотел попробовать обойтись без разбивки и брать данные с каждой из страниц поочерёдно. Но, с разбивкой оказалось эфективнее и предложенный вами выше метод имеет место