Esta pergunta não obteve uma resposta até agora, então responderei de uma perspectiva do Publisher 2010. Em 2010, não há total de páginas como no Word, mas uma macro pode ser executada:
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
Eu modifiquei este código com base em uma postagem de Adicione o número de páginas após o número da página no fórum da Microsoft. Você desejará alterar o valor para Left e Top, dependendo das margens da página e do tamanho da fonte. Conforme escrito, este código coloca o número da página no canto superior direito de uma página de carta com uma margem de 1 polegada.
Esta solução alternativa é definitivamente um último recurso, pois cria caixas de texto em todas as páginas com informações de página codificadas e que devem ser executadas no final de todas as edições. As caixas de texto que contêm a numeração precisariam ser excluídas manualmente antes de executar novamente a macro.