Insert rows in a table uptill the page bottom

Is there a way to write vba code to insert rows in a table up to the bottom of the current page. Thank you

Quote:

---

Originally Posted by kattai

Is there a way to write vba code to insert rows in a table up to the bottom of the current page.

---

By ".... up to the bottom of the current page" are you referring to the last used row of the sheet

Quote:

---

Originally Posted by Aussiebear

By ".... up to the bottom of the current page" are you referring to the last used row of the sheet

---

Yes

Code:

---

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range
  Set oTbl = Selection.Tables(1)
  Set oRng = oTbl.Range
  oRng.Collapse wdCollapseEnd
  oRng.Move wdParagraph, 1
  Do
    oTbl.Rows.Add
  Loop While oTbl.Rows.Last.Range.Information(wdActiveEndAdjustedPageNumber) = oRng.Information(wdActiveEndAdjustedPageNumber)
lbl_Exit:
  Exit Sub
End Sub

---

My apologies kattai, your initial post was correct.

Quote:

---

Originally Posted by gmaxey

Code:

---

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range
  Set oTbl = Selection.Tables(1)
  Set oRng = oTbl.Range
  oRng.Collapse wdCollapseEnd
  oRng.Move wdParagraph, 1
  Do
    oTbl.Rows.Add
  Loop While oTbl.Rows.Last.Range.Information(wdActiveEndAdjustedPageNumber) = oRng.Information(wdActiveEndAdjustedPageNumber)
lbl_Exit:
  Exit Sub
End Sub

---

---

Thank you Greg. It works. I appreciate your timely support.