![Microsoft Publisher 2016 缺少 [x of y] 页码 - 如何实现?](https://linux22.com/image/1555413/Microsoft%20Publisher%202016%20%E7%BC%BA%E5%B0%91%20%5Bx%20of%20y%5D%20%E9%A1%B5%E7%A0%81%20-%20%E5%A6%82%E4%BD%95%E5%AE%9E%E7%8E%B0%EF%BC%9F.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 宏自动插入我选择的文档中的总页数?
不幸的是,我不知道如何实现这一点。这似乎是微软的一个重大疏忽。
目前的计划是跳到最后一页,获取页码,然后手动编辑主文档中的“of”数字。超级尴尬。