How to extend a table bottom border to the end of the page

mikemike616 · #1 08-20-2015, 03:01 PM

I have a macro that adds a few cells to the end of a table. I need the bottom border of the added bottom row to extend to the end of the page with one line of text below it. Just below the table is a line of text that contains the string "DCR-0055". The code below accomplishes what I want to do but I think it is sloppy. It changes the cell row height rule to exact, and then in a while loop it adds .25 inches to the row height until the "DCR-0055" string is no longer on the page and then subtracts back enough space to put the line back on the same page.

Is there a better way to do this?

Code:

Set currentPage = ActiveDocument.Bookmarks("\Page").Range 
Dim heightValue As Single 
heightValue = 0.15 

Application.ScreenUpdating = False 

With ActiveDocument.Tables(tableNum).Cell(startX + 3, 1) 
    .HeightRule = wdRowHeightExactly 
    Do While InStr(currentPage, "DCR-0055") > 0 
        .SetHeight RowHeight:=InchesToPoints(heightValue), HeightRule:=wdRowHeightExactly 
        heightValue = heightValue + 0.25 
        Set currentPage = ActiveDocument.Bookmarks("\Page").Range 
    Loop 
    .SetHeight RowHeight:=InchesToPoints(heightValue - 0.45), _
        HeightRule:=wdRowHeightExactly 
End With 

Application.ScreenUpdating = True

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Paginate table so cell headings appear top of page instead bottom page when no room bottom page	mtcn	Word Tables	5	12-11-2014 12:49 PM
Bottom border doesn't display at certain zoom	Cosmo	Word Tables	1	10-09-2013 10:38 AM
Aligning Page Border with Table border without losing formatting :mad:	l39linden	Word Tables	5	10-04-2013 02:06 AM
Aligning table with bottom of page	Smallweed	Word Tables	3	09-17-2013 08:24 AM
Anchoring a section break to the bottom of a page, and having a table pass over it???	h3rk	Word Tables	1	11-20-2009 07:34 AM