When working with word documents, sometime I use “page break” to ensure a table or a picture don’t extend beyond one page(see the attacment1, if I didn’t use page break, the table1 last rows would go to page2). And it is often the case that I modify my previous Word documents (writing some new paragraphs, deleting some text) and such changes may make page break redundant. (see the attacment2, which is attachment 1th with its a 2th paragraph deleted. In this case the entire table1 can be put in page1) I want to write a macro which automatically realize such “redundant page breaks” and delete them. Can you give me some guides on how it can be done.

Attached Files

	attachment1.docx (16.1 KB, 7 views)
	attachment2.docx (15.9 KB, 3 views)

What if your table is too big to fit on a page?


As long as each table will fit on a page, you could use something like this:

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

thank you for your reply.
Regarding the “attachment 2”, the thing I want is to delete the “redundant page break” of page1th and fit the table on page 1th, (after deleting paragrah2th, the table can be fit on page1th). SO, there is no need to consider whether a table is small enough to be fit on one page.) I am not seeking a macro to ensure a table be fit on one page, but seeking a macro to delete redundant page breaks and delete the empty space between a table and its preceding paragraph, if the table can be fit on this space.
I اhave run your macro on “attachment 2”, but it does not delete the “redundant space”.
But your code did a good job in guiding me. I will study the concept like “keep with next” to understand whether I can modify your code to meet my particular need.
A way I have think of is to write a code to iterate among tables and go back to page break (by using Selection.Previous “command) and delete them and, by comparing the first and last row of tables, realize that selected table has been fit on one page or not and if the table has extended more than on page, insert a page break again.
Consider this code and its issues stated in the comments (not knowing how to determine if previous Paragraph is a page break and how to extend this code to include pictures):


Sub keeptables()

Dim oTbl As Table, tableindex As Integer, pagenumber As Integer, pagenumber2 As Integer

For Each oTbl In ActiveDocument.Tables
oTbl.Select


Selection.Previous(unit:=wdParagraph, Count:=2).Select 'beacude the tables has caption the count is 2
'I dont know how to determine the selected Paragraph is page break or not
Selection.Delete
oTbl.Rows(1).Select
pagenumber = Selection.Range.Information(wdActiveEndPageNumber)
oTbl.Rows(oTbl.Rows.Count).Select
pagenumber2 = Selection.Range.Information(wdActiveEndPageNumber)
If pagenumber <> pagenumber2 Then
Selection.InsertBreak Type:=wdPageBreak
Else
End If