在PowerPoint VBA中识别页码文本框，实现可见幻灯片页码更新

你编写的宏目标是更新可见幻灯片的页码，但代码里的IsAPageNumberTextBox并非PowerPoint VBA的合法属性。要识别页码文本框，可采用以下几种可靠方法：

识别页码文本框的有效方式 #

• 检查占位符类型：默认插入的页码属于ppPlaceholderPageNumber类型的占位符，这是最准确的判断逻辑
• 匹配形状名称：默认页码文本框的名称通常包含"Page Number"关键词
• 判断域类型：页码由域生成，可通过文本框内的域类型是否为页码域来识别

修正后的宏代码 #

以下代码通过占位符类型判断来识别页码文本框，仅更新未隐藏幻灯片的页码：

Sub SetVisiblePageNumbers()
    Dim pageNumber As Integer
    Dim slideObj As Slide
    Dim shapeObj As Shape
    
    pageNumber = 1
    ' 遍历当前演示文稿所有幻灯片
    For Each slideObj In Application.ActivePresentation.Slides
        ' 仅处理未隐藏的幻灯片
        If slideObj.SlideShowTransition.Hidden = False Then
            ' 遍历幻灯片上的所有形状
            For Each shapeObj In slideObj.Shapes
                ' 判断是否为页码占位符
                If shapeObj.Type = msoPlaceholder Then
                    If shapeObj.PlaceholderFormat.Type = ppPlaceholderPageNumber Then
                        ' 更新页码文本
                        shapeObj.TextFrame.TextRange = CStr(pageNumber)
                    End If
                End If
            Next shapeObj
            pageNumber = pageNumber + 1
        End If
    Next slideObj
End Sub

特殊场景补充 #

如果你的页码是手动绘制的文本框（非默认占位符），可通过检查文本框内的页码域来识别：

' 检查文本框是否包含页码域
If shapeObj.TextFrame.HasText Then
    If shapeObj.TextFrame.TextRange.Fields.Count > 0 Then
        If shapeObj.TextFrame.TextRange.Fields(1).Type = ppFieldPageNumber Then
            ' 执行页码更新操作
        End If
    End If
End If

内容的提问来源于stack exchange，提问作者Joe Sonderegger