Word Macro to detect a following page

[AllusiveKitten]

Hi All

Program:
Microsoft Word 2003

Back ground
I am trying to write a macro to insert a landscape page into a portrait document.

Firstly the code must find out if there is a following page after the current cursor point. If there is a following page, the code need to enter extra section breaks to ensure the footers remain correct, other wise the code will just add an extra page making it landscape.

Question:
My question is, is it possible to write code that will find out if there is a following page or not?

[Dököll]

Hey there!

I don't have to much info on Macros, but I suspect it is possible. Let's see if the Access forum has an idea...

If you have a bit of code, post it for a quicker response:-)

In a bit!

[Delerna]

Code to get the number of pages

Dim varNumberPages as Variant
varNumberPages = ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber)
 

Code to get the current page number

CurPage = Selection.Information(wdActiveEndAdjustedPageNumber)
 

compare current page number with number of pages
if not equal then more pages follow.

PS
I got these codes using google so I don't know if they work as is or not.
They look correct...


VBA in word..........shiver................