PPT中添加页码，自动更新

军生

首页开始有页码：X/Y
Sub UpdatePageNumbersXY()
    Dim slide As slide
    Dim textBox As Shape
    Dim slideNumber As Integer
    Dim totalSlides As Integer
    Dim shapeIndex As Integer

    ' 获取总幻灯片数
    totalSlides = ActivePresentation.Slides.Count

    ' -------------------------- 清除旧页码 --------------------------
    For Each slide In ActivePresentation.Slides
        For shapeIndex = slide.Shapes.Count To 1 Step -1
            With slide.Shapes(shapeIndex)
                If .HasTextFrame Then
                    With .TextFrame.TextRange
                        ' 通过格式精准识别旧页码：Arial、12号、黑色、加粗、含 "/"
                        If .Font.Name = "Arial" And _
                           .Font.Size = 12 And _
                           .Font.Color.RGB = RGB(0, 0, 0) And _
                           .Font.Bold = msoTrue And _
                           InStr(.Text, "/") > 0 Then
                            .Parent.Parent.Delete
                        End If
                    End With
                End If
            End With
        Next shapeIndex
    Next slide

    ' -------------------------- 生成新页码（含加粗）------------------
    For Each slide In ActivePresentation.Slides
        slideNumber = slide.slideNumber

        ' 在右下角添加文本框（位置参数可自行调整）
        Set textBox = slide.Shapes.AddTextbox( _
            Orientation:=msoTextOrientationHorizontal, _
            Left:=slide.Design.SlideMaster.Width - 80, _
            Top:=slide.Design.SlideMaster.Height - 30, _
            Width:=150, Height:=30)

        ' 设置页码内容为 X/Y 格式
        textBox.TextFrame.TextRange.Text = slideNumber & "/" & totalSlides

        ' 统一字体样式（含加粗）
        With textBox.TextFrame.TextRange.Font
            .Name = "Arial"
            .Size = 12
            .Color.RGB = RGB(0, 0, 0)
            .Bold = msoTrue  ' 新增加粗
        End With
    Next slide
End Sub

次页开始有页码：2/Y
Sub UpdatePageNumbersXYZ()
    Dim slide As slide
    Dim textBox As Shape
    Dim slideNumber As Integer
    Dim totalSlides As Integer
    Dim shapeIndex As Integer

    ' 获取总幻灯片数
    totalSlides = ActivePresentation.Slides.Count

    ' -------------------------- 清除旧页码 --------------------------
    For Each slide In ActivePresentation.Slides
        For shapeIndex = slide.Shapes.Count To 1 Step -1
            With slide.Shapes(shapeIndex)
                If .HasTextFrame Then
                    With .TextFrame.TextRange
                        ' 通过格式精准识别旧页码：Arial、12号、黑色、加粗、含 "/"
                        If .Font.Name = "Arial" And _
                           .Font.Size = 12 And _
                           .Font.Color.RGB = RGB(0, 0, 0) And _
                           .Font.Bold = msoTrue And _
                           InStr(.Text, "/") > 0 Then
                            .Parent.Parent.Delete
                        End If
                    End With
                End If
            End With
        Next shapeIndex
    Next slide

    ' -------------------------- 生成新页码（含加粗）------------------
    For Each slide In ActivePresentation.Slides
        slideNumber = slide.slideNumber

        ' 跳过首页（编号为1的幻灯片）
        If slideNumber = 1 Then GoTo SkipPageNumber

        ' 在右下角添加文本框（位置参数可自行调整）
        Set textBox = slide.Shapes.AddTextbox( _
            Orientation:=msoTextOrientationHorizontal, _
            Left:=slide.Design.SlideMaster.Width - 80, _
            Top:=slide.Design.SlideMaster.Height - 30, _
            Width:=150, Height:=30)

        ' 设置页码内容为 X/Y 格式
        textBox.TextFrame.TextRange.Text = slideNumber & "/" & totalSlides

        ' 统一字体样式（含加粗）
        With textBox.TextFrame.TextRange.Font
            .Name = "Arial"
            .Size = 12
            .Color.RGB = RGB(0, 0, 0)
            .Bold = msoTrue  ' 新增加粗
        End With

SkipPageNumber:
    Next slide
End Sub

次页开始有页码：1/Y
Sub UpdatePageNumbersXYA()
    Dim slide As slide
    Dim textBox As Shape
    Dim slideNumber As Integer
    Dim totalSlides As Integer
    Dim shapeIndex As Integer
   
    ' 获取总幻灯片数
    totalSlides = ActivePresentation.Slides.Count
   
    ' -------------------------- 清除旧页码 --------------------------
    For Each slide In ActivePresentation.Slides
        For shapeIndex = slide.Shapes.Count To 1 Step -1
            With slide.Shapes(shapeIndex)
                If .HasTextFrame Then
                    With .TextFrame.TextRange
                        ' 通过格式精准识别旧页码：Arial、12号、黑色、加粗、含 "/"
                        If .Font.Name = "Arial" And _
                           .Font.Size = 12 And _
                           .Font.Color.RGB = RGB(0, 0, 0) And _
                           .Font.Bold = msoTrue And _
                           InStr(.Text, "/") > 0 Then
                            .Parent.Parent.Delete
                        End If
                    End With
                End If
            End With
        Next shapeIndex
    Next slide
   
    ' -------------------------- 生成新页码（从第二页开始，显示为1/Y）------------------
    For Each slide In ActivePresentation.Slides
        slideNumber = slide.slideNumber
        
        ' 跳过首页（编号为1的幻灯片）
        If slideNumber = 1 Then GoTo SkipPageNumber
        
        ' 在右下角添加文本框（位置参数可自行调整）
        Set textBox = slide.Shapes.AddTextbox( _
            Orientation:=msoTextOrientationHorizontal, _
            Left:=slide.Design.SlideMaster.Width - 80, _
            Top:=slide.Design.SlideMaster.Height - 30, _
            Width:=150, Height:=30)
        
        ' 调整页码显示逻辑：从第二页开始，页码从1开始计数
        textBox.TextFrame.TextRange.Text = slideNumber - 1 & "/" & totalSlides - 1
        
        ' 统一字体样式（含加粗）
        With textBox.TextFrame.TextRange.Font
            .Name = "Arial"
            .Size = 12
            .Color.RGB = RGB(0, 0, 0)
            .Bold = msoTrue  ' 新增加粗
        End With
        
SkipPageNumber:
    Next slide

End Sub

军生

各位大神：
     若有更好的方法；
     请分享一下！
     谢谢！

Enocheasty

我一般用PPT自己的幻灯片编号，并将其放到母版中，就可以了。一样自动更新的！

军生

Enocheasty 发表于 2025-3-10 13:39
我一般用PPT自己的幻灯片编号，并将其放到母版中，就可以了。一样自动更新的！

能发个附件样例吗？

Enocheasty

军生 发表于 2025-3-10 13:46
能发个附件样例吗？

很简单的一个模板
演示文稿1.zip (11.08 KB, 下载次数: 5)

2025-3-10 14:54 上传

点击文件名下载附件

军生

Enocheasty 发表于 2025-3-10 14:55
很简单的一个模板

谢谢！
有Page X/Y      这种的样式吗？

军生

军生 发表于 2025-3-10 15:42
谢谢！
有Page X/Y      这种的样式吗？

类似 word中的页码样式X/Y

Enocheasty

军生 发表于 2025-3-10 15:46
类似 word中的页码样式X/Y

这个就没办法了，可以考虑VBA更新。不过我做PPT，基本没做过第几页/共几页的样式。

军生

Enocheasty 发表于 2025-3-10 19:45
这个就没办法了，可以考虑VBA更新。不过我做PPT，基本没做过第几页/共几页的样式。

谢谢！
了解！

天堑小舟

如果只是做页码，用PPT版式就可以解决了。再保存为自己的主题模版以后就更方便了。
如果是VBA专题，那就另论。