Microsoft Office Forums - View Single Post - How to extend a table bottom border to the end of the page

Guessed · 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