只给未隐藏的页面添加页码

> 如果 PPT 中有部分页面隐藏掉了，只需要给未隐藏的页面添加连续的页面，则可以使用下面这段代码。

使用前需要确保页面版式中有幻灯片编号占位符。

**代码如下：**

```vb
Sub 添加页码()
    '仅支持 2007 及以上版本'
    Dim osld As Slide
    Dim objSN As Shape
    Dim lngNum As Long
    '检查所有幻灯片'
    For Each osld In ActivePresentation.Slides
        '判断是否隐藏'
        If osld.SlideShowTransition.Hidden Then
            osld.HeadersFooters.SlideNumber.Visible = FALSE
        Else
            osld.HeadersFooters.SlideNumber.Visible = TRUE
            Set objSN = getNumber(osld)
            lngNum = lngNum + 1
            If Not objSN Is Nothing Then
            objSN.TextFrame.TextRange = CStr(lngNum + 0)
            '括号中为 + 0，则表示页码从 1 开始，如需页码从 2 开始，可以改为 + 1'
        End If
    End If
Next osld
End Sub

Function getNumber(thisSlide As Slide) As Shape
    For Each getNumber In thisSlide.Shapes
        If getNumber.Type = msoPlaceholder Then
            If getNumber.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then
                'it's the slide number
                Exit Function
            End If
        End If
    Next getNumber
End Function
```