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 fineVB Code:
Dim oTable As Word.Table, f As HeaderFooter, p As PageNumber, s As Section For Each oTable In Documents(1).tables ' oTable.AllowPageBreaks = False oTable.Rows(1).Cells(1).Select r = Selection.Information(wdActiveEndPageNumber) oTable.Rows(oTable.Rows.Count).Select r1 = Selection.Information(wdActiveEndPageNumber) If Not r = r1 Then mylist = mylist & r & "," Next MsgBox "tables run over at the end of the following pages" & vbNewLine & mylist Set oTable = Nothing
pete




Reply With Quote