What Page is It?

[Ken Hutson]

Hi Group,

I have a question. Through code, I know how many pages and paragraphs are
in my document. If I know a particular page, how do I find the last word on
that page?

Thanks,
Ken Hutson
San Antonio

 

[Helmut Weber]

Hi Ken,
like this(last word from page 2), but only in principle:
With Selection
.ExtendMode = False
.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="2"
.ExtendMode = True
.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
MsgBox .Words.Last
End With
As I don't think, that this is possible without moving the selection,
you may add some code for restoring the selection. And some extra
code for getting the last word from the last page. And after all,
Word's definition of "word" is different from a word in natural
language. Let us know, if you need more detailed advice.
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[Helmut Weber]

Hi,
still shorter to select the first page of the selection:
ActiveDocument.Bookmarks("\page").Select

 

[Pete Bennett]

You don't even need to select any text, just use the range of the bookmark.

?activedocument.Bookmarks("\page").range.paragraphs.last.Previous.Range.text

Strangely though,
activedocument.Bookmarks("\page").range.paragraphs.last.Previous.Range.words.Last.Text
doesn't return the last word, only individual characters (at least in Word
2003). Odd that...

Pete.

 

[Ken Hutson]

Ok, thanks alot.
Ken Hutson
San Antonio, TX