#1
|
|||
|
|||
How to extend a table bottom border to the end of the page
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 |
#2
|
||||
|
||||
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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Thread Tools | |
Display Modes | |
|
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 |