В Microsoft Publisher 2016 отсутствует нумерация страниц [x из y] — как этого добиться?

В Microsoft Publisher 2016 отсутствует нумерация страниц [x из y] — как этого добиться?

Проще говоря, наш офис использовал MS Word для своей учебной документации. Когда я начал вставлять большое количество фотографий, это привело к тому, что форматирование Word стало ломаться самым неприятным образом. Поскольку я полон идей, я предложил перейти на Publisher, который упрощает управление текстом и изображениями.

Конечно, наш технический писатель сразу же столкнулся с препятствием. MS Word позволяет автоматически нумеровать заголовки страниц, как номер текущей страницы, так и общее количество страниц. Например, " Страница 1 из 3 "

MS Publisher поддерживает только автоматическую нумерацию страниц, ничего больше. Я поискал в сети и нашел краткий макрос VBA для этой самой проблемы:

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

Я вижу, что создается текстовое поле, которое кажется ненужным. Разве нельзя использовать макрос VBA, чтобы просто автоматически вставить общее количество страниц в документ, который я выбираю?

К сожалению, я понятия не имею, как это реализовать. Похоже, это серьезная оплошность со стороны Microsoft.

На данный момент план состоит в том, чтобы перейти на последнюю страницу, получить номер страницы и вручную отредактировать номер "of" в мастере. Очень неудобно.

Связанный контент