-
情景:一个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
中点击开发工具
并新建模块,粘贴上述代码并运行,将会在页面右上部位看到自定义页面编码的情况,只需要修改上述代码中的各个数字即可实现自定义编码。