View Single Post
Old 11-28-2006, 08:28 AM   #3
HarryT
eBook Enthusiast
HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.HarryT ought to be getting tired of karma fortunes by now.
 
HarryT's Avatar
 
Posts: 62,121
Karma: 39287375
Join Date: Nov 2006
Location: UK
Device: PW2, iPad Retina Mini, iPhone 4, MS Surface Pro, Onyx T68, N7,
Thanks for posting that, Stingo - it works extremely well.

The only change I've made, other the changing the font to my personal preference, is to add a final line:

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"

so that the cursor ends up at the top of the document, with no selection. Without it, the cursor is left at the bottom, with the entire document selected.

Extremely useful - very many thanks for that!
HarryT is offline   Reply With Quote