![В Microsoft Publisher 2016 отсутствует нумерация страниц [x из y] — как этого добиться?](https://rvso.com/image/1555413/%D0%92%20Microsoft%20Publisher%202016%20%D0%BE%D1%82%D1%81%D1%83%D1%82%D1%81%D1%82%D0%B2%D1%83%D0%B5%D1%82%20%D0%BD%D1%83%D0%BC%D0%B5%D1%80%D0%B0%D1%86%D0%B8%D1%8F%20%D1%81%D1%82%D1%80%D0%B0%D0%BD%D0%B8%D1%86%20%5Bx%20%D0%B8%D0%B7%20y%5D%20%E2%80%94%20%D0%BA%D0%B0%D0%BA%20%D1%8D%D1%82%D0%BE%D0%B3%D0%BE%20%D0%B4%D0%BE%D0%B1%D0%B8%D1%82%D1%8C%D1%81%D1%8F%3F.png)
Проще говоря, наш офис использовал MS Word для своей учебной документации. Когда я начал вставлять большое количество фотографий, это привело к тому, что форматирование Word стало ломаться самым неприятным образом. Поскольку я полон идей, я предложил перейти на Publisher, который упрощает управление текстом и изображениями.
Конечно, наш технический писатель сразу же столкнулся с препятствием. MS Word позволяет автоматически нумеровать заголовки страниц, как номер текущей страницы, так и общее количество страниц. Например, " Страница 1 из 3 "
MS Publisher поддерживает только автоматическую нумерацию страниц, ничего больше. Я поискал в сети и нашел краткий макрос VBA для этой самой проблемы:
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" в мастере. Очень неудобно.