PPT中单个幻灯片添加不同编号

情景：一个PPT中会有页码，也会有多个其它的编号，对于页码，好办，可以自动生成，但对于其他自定义的、只想在部分页面添加的编号，则需要写VBA脚本进行处理，使页码和自定义编号共存并真正实现编号在各个幻灯片中的自定义特征。
采用如下VBA脚本实现自定义编号：

Sub AddCustomPageNumber()
    Dim currentSlide As Slide
    Dim pageNum As Long
    Dim totalSlides As Long
    Dim startPage As Long
    Dim endPage As Long
    
    ' 设置起始页码和终止页码
    startPage = 7
    endPage = 42
    
    ' 设置初始页码和总页数
    pageNum = 1
    totalSlides = 36

    For Each currentSlide In ActivePresentation.Slides
        If pageNum >= startPage And pageNum <= endPage Then
            
            Dim pageNumberShape As Shape
            Set pageNumberShape = currentSlide.Shapes.AddShape(msoShapeRectangle, 460, 18, 80, 30)
            
            
            With pageNumberShape
                .Fill.Visible = msoFalse
                .Line.Visible = msoFalse
                .TextFrame2.TextRange.Text = "(" & pageNum - 6 & "/" & totalSlides & ")"
                .TextFrame2.TextRange.Font.Size = 14
                .TextFrame2.TextRange.Font.Name = "Times New Roman"
                .TextFrame2.TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignCenter
            End With
        End If
        
        pageNum = pageNum + 1
    Next currentSlide
End Sub

在PPT 2016中点击开发工具并新建模块，粘贴上述代码并运行，将会在页面右上部位看到自定义页面编码的情况，只需要修改上述代码中的各个数字即可实现自定义编码。

__EOF__

本文作者：艾孜尔江
本文链接：https://www.cnblogs.com/ezhar/p/17539571.html
关于博主：评论和私信会在第一时间回复。或者直接私信我。
版权声明：本博客所有文章除特别声明外，均采用 BY-NC-SA 许可协议。转载请注明出处！
声援博主：如果您觉得文章对您有帮助，可以点击文章右下角【推荐】一下。您的鼓励是博主的最大动力！