You need to enable JavaScript to run this app.
优惠活动
大模型
产品
解决方案
定价
更多
文档控制台
免费开始使用

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更新域,就能显示当前页码
  • 设置页脚
    1. 光标移到页脚位置,按Ctrl + F9插入域括号,在括号内输入=PAGE+1,按F9更新域,就能显示当前页+1的页码
    2. 要是不想让最后一页显示continue on [总页数+1],可以用条件域来判断:
      Ctrl + F9依次插入域结构,最终输入:{ IF { PAGE } < { NUMPAGES } "continue on { =PAGE+1 }" "End of document" }
      注意:所有的大括号都必须通过Ctrl + F9插入,手动输入的括号不会生效
    3. 输入完成后按F9更新域,这样非最后一页会显示continue on 下一页码,最后一页显示自定义内容
  • 小技巧:按Alt + F9可以切换域代码和显示结果的视图,方便你编辑和查看

备注:内容来源于stack exchange,提问作者User1991

火山引擎 最新活动