ppt自动计算总页数方法：实现“第X页 / 共Y页”效果

在powerpoint中，虽然系统自带的页码标记 <#> 可以自动显示当前页码，但并没有内置直接显示“总页数”的动态占位符。如果需要实现“第5页 / 共20页”这种随幻灯片增减而自动变化的格式，最稳妥的方案是使用VBA脚本进行一键重构。

方法一：使用VBA宏自动计算并插入

通过编写简单的脚本，可以让系统自动获取当前演示文稿的 Slides.Count 属性，并将其应用到每一页。

1、进入编辑器：在ppt界面按下 Alt + F11 打开VBA编辑窗口。

2、插入模块：点击菜单栏的“插入”->“模块”，将以下代码粘贴进去：

Sub AddTotalSlides()
    Dim sld As Slide
    Dim totalSlides As Integer
    ' 获取当前演示文稿的总页数
    totalSlides = ActivePresentation.Slides.Count
    ' 遍历每一张幻灯片
    For Each sld In ActivePresentation.Slides
        ' 在右下角创建一个文本框，格式为：当前页 / 总页数
        With sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 150, 20)
            .TextFrame.TextRange.Text = "第 " & sld.SlideIndex & " 页 / 共 " & totalSlides & " 页"
            ' 将文本框移动到幻灯片底部位置（可根据需要调整坐标）
            .Left = ActivePresentation.PageSetup.SlideWidth - 160
            .Top = ActivePresentation.PageSetup.SlideHeight - 30
        End With
    Next sld
End Sub

3、运行宏：返回ppt界面，按下 Alt + F8，选择 AddTotalSlides 并点击“运行”。系统会瞬间在所有幻灯片上生成正确的页码标识。

方法二：利用母版手动批量设置

如果你的幻灯片页数已经固定，或者不想使用宏，可以通过“母版”进行半自动设置。

1、进入母版视图：点击“视图”->“幻灯片母版”。

2、编辑页脚：找到底部的页脚占位符，手动输入 第 <#> 页 / 共XX页（XX代表你目前的总页数）。

3、全局应用：点击“插入”->“页眉和页脚”，勾选“幻灯片编号”和“页脚”，最后点击“全部应用”。

说明：虽然母版法比一页页修改快，但如果后续你删除了几张幻灯片，母版里的“XX”数字不会自动减少，需要你再次进入母版修改那个固定数值。相比之下，方法一的宏在每次调整完内容后运行一次即可实现全自动校准。

注意事项

1、文件格式：使用VBA宏后，保存文件时必须选择 *“powerpoint启用宏的演示文稿 (.pptm)”** 格式，否则代码会在下次打开时丢失。

2、重复执行：如果你多次运行宏，可能会在同一位置重叠生成多个文本框。在重新运行前，建议先删除旧的页码框。