Last row on each page
Hi,
just the principle, not taking care of _multiple_ tables:
Dim l As Long ' just a counter
Dim p As Long ' a page
Dim r As Long ' a row
p = ActiveDocument.BuiltInDocumentProperties("number of pages")
For l = 1 To p
Selection.GoTo what:=wdGoToPage, _
which:=wdGoToAbsolute, Count:=l
r = r + ActiveDocument.Bookmarks("\page").Range.Rows.Count
MsgBox "Page: " & l & ", Row: " & r
Next
The messagebox tells you, which row in _the_ table
is the last row on the page.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
|