Excel与Word中实现页眉[Page]+页脚'continue on [NextPageNumber]'的解决方案咨询
Excel与Word中实现页眉[Page]+页脚'continue on [NextPageNumber]'的解决方案咨询
嘿,这个需求确实挺实用的!Excel和Word本身没有直接提供「下一页页码」的内置字段,不过咱们可以用一些小技巧来实现,分两种软件给你详细说说:
Excel 实现方法
Excel里没法直接通过内置字段实现,得借助VBA宏来完成批量设置,步骤如下:
- 打开你的Excel文件,按下
Alt + F11打开VBA编辑器 - 右键点击左侧的工作簿名称,选择「插入」→「模块」,新建一个代码模块
- 将下面的代码粘贴到模块中:
Sub AddNextPageFooter() Dim ws As Worksheet Dim totalPages As Integer Dim currentPage As Integer Set ws = ActiveSheet totalPages = ws.PageSetup.Pages.Count ' 设置页眉为当前页码 ws.PageSetup.CenterHeader = "&P" ' 遍历每一页设置页脚 For currentPage = 1 To totalPages ws.PageSetup.PrintArea = ws.PageSetup.GetPrintArea(currentPage) If currentPage < totalPages Then ' 非最后一页显示"continue on 下一页码" ws.PageSetup.CenterFooter = "continue on " & (currentPage + 1) Else ' 最后一页可自定义内容,这里设为"End of document" ws.PageSetup.CenterFooter = "End of document" End If ' 如果需要直接打印每一页,取消下面这行的注释 ' ws.PrintOut From:=currentPage, To:=currentPage Next currentPage End Sub - 按下
F5运行宏,就能自动给每一页设置好页眉的当前页码和页脚的下一页页码啦
注意:如果你的表格内容或打印区域有变动,记得重新运行宏更新页码哦
Word 实现方法
Word里不用宏也能搞定,借助域代码就能实现,操作更灵活:
- 双击页眉/页脚区域,进入「页眉和页脚」编辑模式
- 设置页眉:直接插入当前页码——点击「页眉和页脚」选项卡的「页码」→「当前位置」→「普通数字」;或者手动按
Ctrl + F9插入域括号,在括号内输入PAGE,最后按F9更新域,就能显示当前页码 - 设置页脚:
- 光标移到页脚位置,按
Ctrl + F9插入域括号,在括号内输入=PAGE+1,按F9更新域,就能显示当前页+1的页码 - 要是不想让最后一页显示
continue on [总页数+1],可以用条件域来判断:
按Ctrl + F9依次插入域结构,最终输入:{ IF { PAGE } < { NUMPAGES } "continue on { =PAGE+1 }" "End of document" }
注意:所有的大括号都必须通过Ctrl + F9插入,手动输入的括号不会生效 - 输入完成后按
F9更新域,这样非最后一页会显示continue on 下一页码,最后一页显示自定义内容
- 光标移到页脚位置,按
- 小技巧:按
Alt + F9可以切换域代码和显示结果的视图,方便你编辑和查看
备注:内容来源于stack exchange,提问作者User1991




