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

Guessed · #2 08-20-2015, 08:08 PM

I don't know that this way is really any better but it is an alternative that might get you thinking. I was hoping I could use aRng.Information(wdVerticalPositionRelativeToPage) to make an elegant solution but I couldn't be bothered figuring it out properly

Code:

Sub Macro1()
  Dim aRng As Range, aCell As Cell
  Dim iCurrPage As Integer, lngPageHeight As Long
  
  Set aCell = ActiveDocument.Tables(1).Cell(1, 1)
  Set aRng = aCell.Range
  aRng.Collapse Direction:=wdCollapseEnd
  iCurrPage = aRng.Information(wdActiveEndPageNumber)
  
  aCell.HeightRule = wdRowHeightExactly
  lngPageHeight = aRng.Sections(1).PageSetup.PageHeight
  aCell.SetHeight RowHeight:=lngPageHeight, HeightRule:=wdRowHeightExactly
  Do Until aRng.Information(wdActiveEndPageNumber) = iCurrPage
    aCell.SetHeight RowHeight:=aCell.Height - 18, HeightRule:=wdRowHeightExactly
  Loop
End Sub

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