如何用VBA删除旧版PowerPoint每页的页码文本框？

先说说你两次尝试的问题： #

• 第一次代码照搬了Word的Find语法，但PowerPoint的Slides对象根本没有Find方法，这段代码完全无法运行。
• 第二次代码的问题有三个：一是用InStr查找带通配符的*/47，但InStr不支持通配符匹配，自然找不到目标文本；二是代码仅将找到的文本加粗，没有执行删除操作；三是老版本PPT的页码通常放在幻灯片母版里，你只遍历普通幻灯片的形状，根本碰不到母版里的页码。

正确的VBA代码方案 #

下面的代码会同时遍历普通幻灯片、幻灯片母版及布局，匹配所有格式为page X of 47的内容，要么删除整个页码文本框，要么精准删除文本框内的页码内容：

Sub DeletePageNumbers()
    Dim oSl As Slide
    Dim oMaster As SlideMaster
    Dim oLayout As CustomLayout
    Dim sPattern As String
    
    ' 定义匹配的页码格式，*为通配符，匹配任意数字
    sPattern = "page * of 47"
    
    ' 处理普通幻灯片
    For Each oSl In ActivePresentation.Slides
        CheckAndRemovePageNum oSl, sPattern
    Next oSl
    
    ' 处理幻灯片母版和布局（老版本PPT页码常存放于此）
    For Each oMaster In ActivePresentation.SlideMasters
        CheckAndRemovePageNum oMaster, sPattern
        For Each oLayout In oMaster.CustomLayouts
            CheckAndRemovePageNum oLayout, sPattern
        Next oLayout
    Next oMaster
End Sub

' 辅助函数：检查并移除匹配的页码
Sub CheckAndRemovePageNum(targetObj As Object, matchPattern As String)
    Dim i As Integer
    Dim oSh As Shape
    Dim textContent As String
    
    ' 倒序遍历形状，避免删除后索引混乱
    For i = targetObj.Shapes.Count To 1 Step -1
        Set oSh = targetObj.Shapes(i)
        If oSh.HasTextFrame And oSh.TextFrame.HasText Then
            textContent = oSh.TextFrame.TextRange.Text
            ' 匹配完整页码格式
            If textContent Like matchPattern Then
                ' 页码为单独文本框，直接删除形状
                oSh.Delete
            Else
                ' 页码是文本框内的部分内容，精准删除
                Dim startPos As Integer
                Dim endPos As Integer
                startPos = InStr(textContent, "page ")
                endPos = InStr(textContent, " of 47")
                If startPos > 0 And endPos > startPos Then
                    oSh.TextFrame.TextRange.Characters(startPos, endPos + 6 - startPos).Delete
                End If
            End If
        End If
    Next i
End Sub

使用步骤： #

1. 打开目标PPT，按下Alt+F11打开VBA编辑器；
2. 右键点击左侧项目窗口，选择「插入」→「模块」；
3. 将上述代码粘贴到模块中，运行DeletePageNumbers宏即可。

内容的提问来源于stack exchange，提问作者m jin