Esta questão ainda não obteve resposta, então responderei da perspectiva do Publisher 2010. Em 2010, não há páginas totais 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
Modifiquei esse código com base em uma postagem de Adicionar número de páginas após o número da página no fórum da Microsoft. Você deseja alterar o valor para Esquerda e Superior, dependendo das margens da página e do tamanho da fonte. Conforme escrito, esse código coloca o número da página no canto superior direito de uma página de carta retrato com uma margem de 1 polegada.
Essa solução alternativa é definitivamente o último recurso, pois cria caixas de texto em todas as páginas com informações codificadas e seria melhor executada no final de toda a edição. As caixas de texto contendo a numeração precisariam ser excluídas manualmente antes de executar novamente a macro.