Find End of the Page

[ravininave]

Hi, I'm creating word doc from my vb6 application. I writes some data on each page.
After desired contents on the page i use pagebreak so that it will go to second page.
here what i need that when i use Insertbreak command then before that i have to write something
on the end line of page. so the question is how to find last line of that page and write on that line and
then send Insertbreak command.

[westconn1]

goto next page, move back 1 character, but this will take you to end of text on page, not bottom of page, better to put in footer if possible, but then same for all pages, except field values

if you need to write at the bottom of page, without using footers, either you will have to fill page with empty paragraphs to bottom line, or insert a textbox or frame in the correct position

[ravininave]

Means I always have to count the lines. sometimes data comes from database. so we don't know how much
lines it will consume and we never come to know whether we are on next page or on current.
I think the best way is to put it in footer or try to insert a textbox or frame as you suggested.
Can u post some code to put in textbox or frame or how to insert value in footer.
thanx for your reply.

[westconn1]

Can u post some code to put in textbox or frame or how to insert value in footer.

did you try recording a macro?

[ravininave]

No I haven't. Can u post some example to put something on the last line of page using macro.?

[westconn1]

this will put a textbox with some text at the bottom of the current page

Set tb = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 40, (ActiveDocument.PageSetup.PageHeight - 150), 350, 50)
tb.TextFrame.TextRange.Text = "this is a test 23"

change positions etc to suit

you can use the selection object to go to next page or a specific page, like

Selection.GoTo wdGoToPage, wdGoToNext

working with textbox shapes in word is not specially easy