Microsoft Publisher 2016 Lacks [x von y] Seitennummerierung - Wie erreiche ich dies?

354
AngryScientist

Einfach ausgedrückt, unser Büro verwendet MS Word für die Schulungsdokumentation. Als ich anfing, eine große Anzahl von Fotos einzufügen, brach das Formatieren von Word auf so frustrierende Weise wie möglich. Da ich voller Ideen bin, schlug ich vor, zu Publisher zu wechseln, was die Verwaltung von Text und Bildern vereinfacht.

Natürlich hat unser technischer Redakteur sofort eine Straßensperre getroffen. Mit MS Word können Seitenköpfe automatisch nummeriert werden, sowohl die Anzahl 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 mich online umgesehen und für dieses Problem ein kurzes VBA-Makro gefunden:

https://answers.microsoft.com/de-de/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 kann sehen, dass ein Textfeld erstellt wird, was unnötig erscheint. Wäre es nicht möglich, das VBA-Makro zu verwenden, um einfach die Gesamtzahl der Seiten automatisch in das von mir ausgewählte Dokument einzufügen?

Leider habe ich keine Ahnung, wie ich das umsetzen soll. Es scheint ein großes Versehen von Microsoft zu sein.

Im Moment ist der Plan, zur letzten Seite zu springen, die Seitennummer zu erhalten und die "of" -Nummer im Master von Hand zu bearbeiten. Super umständlich.

1

0 Antworten auf die Frage

Verwandte Probleme