Current Page # (even vs odd)

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

Greg
Mon Feb 12 15:14:18 CST 2007

On Feb 12, 2:51 pm, jille <j...@discussions.microsoft.com> wrote:
> 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

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