How do I set up page numbering to count each spread as one page, .

[Joe]

I am trying to count each spread as one page, and only show page numbers on
the bottom right of the right hand page. I dont see many detailed options
for this. Is there a way to write my own script to determine the page
number, such as Miscrosoft has written the # script which displays the page
number.

 

[Ed Bennett]

I am trying to count each spread as one page, and only show page
numbers on the bottom right of the right hand page. I dont see many
detailed options for this. Is there a way to write my own script to
determine the page number, such as Miscrosoft has written the #
script which displays the page number.

You can write a script that will do this for you, but you will not be able
to tell it to insert on a Master Page like you can with the #

You could do something like this:

Dim aPage as Publisher.Page
Dim aTextbox as Publisher.Shape
Dim i as Integer = 0
Dim n as Integer = 0

For n = 1 To (ThisDocument.Pages.Count) Step 2
Set aPage = ThisDocument.Pages(n)
Set aTextBox = aPage.Shapes.AddTextbox(pbTextOrientationHorizontal, "10
cm", "10 cm", "3 cm", "1 cm")
aTextBox.TextFrame.TextRange.Text = "Page " & ((n + 1)/2) & " of " &
ThisDocument.Pages.Count
Next

If you wanted, you could then add code that tagged the text boxes that were
added so that when the macro ran the next time, the old text boxes would be
deleted and new ones added in their place.