here is the code to tell you if the tables are on the same pages or not, but it will take quite a bit more to make a smooth thing as once you cange the tables, it will change the document layout, this will just give the page numbers that have a table split in a messagebox, but for some reason if one line of a table is at the bottom of a page it reads the next page number, 2 lines is fine
VB Code:
  1. Dim oTable As Word.Table, f As HeaderFooter, p As PageNumber, s As Section
  2. For Each oTable In Documents(1).tables
  3. '    oTable.AllowPageBreaks = False
  4.     oTable.Rows(1).Cells(1).Select
  5.  
  6.     r = Selection.Information(wdActiveEndPageNumber)
  7.     oTable.Rows(oTable.Rows.Count).Select
  8.     r1 = Selection.Information(wdActiveEndPageNumber)
  9.     If Not r = r1 Then mylist = mylist & r & ","
  10.     Next
  11.     MsgBox "tables run over at the end of the following pages" & vbNewLine & mylist
  12.     Set oTable = Nothing

pete