Answers:
到目前为止,这个问题还没有得到回应,所以我将从Publisher 2010的角度回答。在2010年,Word中没有总页数,但可以运行宏:
Sub NumberT()
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:=490, Top:=50, Width:=80, Height:=20) _
.TextFrame.TextRange.InsertAfter NewText:="Page " _
& strPageNumber & " of " & .Parent.Count & " "
End With
Next x
End Sub
我根据Microsoft论坛上页码后添加页数的帖子修改了此代码。您需要根据页边距和字体大小更改Left和Top的值。如此编写,此代码将页码放在纵向字母页面的右上角,边距为1英寸。
这种解决方法绝对是最后的手段,因为它在每个页面上创建带有硬编码页面信息的文本框,最好在所有编辑结束时运行。在重新运行宏之前,需要手动删除包含编号的文本框。
如果您知道总页数,可以DIY一个。以这种方式思考 - 唯一的变量是你现在所在的页面,总数永远不会改变。SO步骤以下的处理的2需要的唯一变量的照顾。仅供参考这将在页眉,页脚或正文中使用:
您的最终产品看起来像 - 页面数量10(或者您可能的总数 - 使用插入页码工具时出现“#”)
只需单击即可将其应用于所有页面,保存您的文档,并对您的惊人感到惊讶。