In Microsoft Publisher 2016 fehlt [x von y] Seitennummerierung – Wie kann das erreicht werden?

Question

Um es einfach auszudrücken: Unser Büro verwendet MS Word für die Schulungsunterlagen. Als ich begann, eine große Anzahl von Fotos einzufügen, führte dies dazu, dass die Formatierung von Word auf die frustrierendste Art und Weise beschädigt wurde. Da ich voller Ideen bin, schlug ich vor, zu Publisher zu wechseln, was die Verwaltung von Text und Bildern vereinfacht.

Natürlich stieß unser technischer Redakteur sofort auf ein Hindernis. MS Word ermöglicht die automatische Nummerierung von Seitenköpfen, sowohl die Nummer der aktuellen Seite als auch die Gesamtzahl der Seiten. Zum Beispiel " Seite 1 von 3 "

MS Publisher unterstützt nur die automatische Nummerierung von Seiten, mehr nicht. Ich habe online nachgesehen und ein kurzes VBA-Makro für genau dieses Problem gefunden:

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_other-mso_other-mso_2010/display-page-numbers-in-ms-publisher-2010/499026db-0f47-46a8-8f96-6ee0b0ca7d46

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

Ich sehe, dass ein Textfeld erstellt wird, was unnötig erscheint. Wäre es nicht möglich, mithilfe eines VBA-Makros die Gesamtzahl der Seiten automatisch in das Dokument einzufügen, das ich auswähle?

Leider habe ich keine Ahnung, wie ich das umsetzen soll. Es scheint sich um ein großes Versäumnis von Microsoft zu handeln.

Der Plan besteht vorerst darin, zur letzten Seite zu springen, die Seitenzahl abzurufen und die „von“-Nummer im Master manuell zu bearbeiten. Super umständlich.