Current Page # (even vs odd)

[jille]

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 Maxey]

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