На этот вопрос пока нет ответа, поэтому я отвечу с точки зрения Publisher 2010. В 2010 году общее количество страниц, как в Word, отсутствует, но можно запустить макрос:
Sub NumberT() Dim strPageNumber As String Dim x As Integer For x = 1 To Pages.Count With ActiveDocument.Pages(x) strPageNumber = .PageNumber .Shapes.AddTextbox(Orientation:=pbTextOrientationHorizontal, _ Left:=490, Top:=50, Width:=80, Height:=20) _ .TextFrame.TextRange.InsertAfter NewText:="Page " _ & strPageNumber & " of " & .Parent.Count & " " End With Next x End Sub
Я изменил этот код, основываясь на сообщении из раздела Добавить количество страниц после номера страницы на форуме Microsoft. Вы можете изменить значение для Left и Top в зависимости от полей страницы и размера шрифта. Как написано, этот код помещает номер страницы в верхнем правом углу страницы с портретной буквой с полем в 1 дюйм.
Этот обходной путь, безусловно, является последним средством, поскольку он создает текстовые поля на каждой странице с жестко закодированной информацией о странице, и его лучше всего запускать в конце всего редактирования. Текстовые поля, содержащие нумерацию, необходимо будет удалить вручную перед повторным запуском макроса.