Simplificando, nosso escritório tem usado o MS Word para sua documentação de treinamento. Quando comecei a inserir um grande número de fotos, isso fez com que a formatação do Word se quebrasse das formas mais frustrantes possíveis. Como estou cheio de ideias, sugeri que passássemos para o Publisher, o que facilita o gerenciamento de texto e imagens.
Naturalmente, nosso escritor técnico atingiu um obstáculo imediatamente. O MS Word permite que os cabeçalhos das páginas sejam numerados automaticamente, tanto o número da página atual quanto o número total de páginas. Por exemplo, "Página 1 de 3"
O MS Publisher suporta apenas a numeração automática de páginas, nada mais. Eu olhei em volta on-line e encontrei uma breve macro VBA para este problema:
link
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:=710, Top:=580, Width:=80, Height:=20) _
.TextFrame.TextRange.InsertAfter NewText:="Page " _
& strPageNumber & " of " & .Parent.Count & "."
End With
Next x
Eu posso ver que uma caixa de texto está sendo criada, o que parece desnecessário. Não seria possível usar o VBA Macro para apenas inserir o número total de páginas automaticamente no documento onde eu seleciono?
Infelizmente, não tenho ideia de como implementar isso. Parece ser uma grande negligência por parte da Microsoft.
Por enquanto, o plano é pular para a última página, obter o número da página e editar o número "de" no mestre manualmente. Super desajeitado.