Microsoft Publisher 2016 缺少 [x of y] 页码 - 如何实现？

Question

简单来说，我们办公室一直使用 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 宏自动插入我选择的文档中的总页数？

不幸的是，我不知道如何实现这一点。这似乎是微软的一个重大疏忽。

目前的计划是跳到最后一页，获取页码，然后手动编辑主文档中的“of”数字。超级尴尬。