Current Page # (even vs odd)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jille - 12 Feb 2007 19:51 GMT

Hi,

I'm trying to write the code to determine:

a) what the current page number is (even where there is no page numbering
inserted in the doc) and;
b) determine if it is even/odd number (without 'reflected margin feature')

I have a large number of small documents that are being appended to one
another and I need to ensure that the first page always starts on an odd page.

Thanks,
Jille

Reply to this Message

Greg Maxey - 12 Feb 2007 21:14 GMT

> Hi,
>
[quoted text clipped - 9 lines]
> Thanks,
> Jille

Maybe somethink like this:

Sub Scratchmacro()
Dim lngPN As Long
Dim lngCheck As Long
lngPN = Selection.Information(wdActiveEndPageNumber)
lngCheck = lngPN Mod 2
If lngCheck > 0 Then MsgBox "Page is odd"
End Sub

Reply to this Message