vbs 删除 PPT 中的文本框

如何去除中国大学MOOC网下载的 pdf 格式课件中的底纹文字？

• 将 pdf 格式转换成 pptx 格式。
  1. 打开 https://www.ilovepdf.com/， 选择 PDF to powerpint
  2. 上传 PDF 文件进行转换
  3. 下载 pdf 文件
• 在 ppt 文件中插入如下宏即可。

# 删除PPT中包含指定文字的文本框
Sub DeleteText()

    Dim sld As Slide
    Dim shp As Shape
    
    '循环遍历每张幻灯片
    For Each sld In ActivePresentation.Slides
        '循环遍历每个形状
        For Each shp In sld.Shapes
            '检查形状是否为文本框并且标题为“中国大学MOOC”
            If shp.HasTextFrame And shp.TextFrame.HasText Then
                If shp.TextFrame.TextRange.Text = "中国大学MOOC" Or shp.TextFrame.TextRange.Text = "中国大学" Or _
                    shp.TextFrame.TextRange.Text = "大学MOOC" Or shp.TextFrame.TextRange.Text = "国大学MOOC" Then
                    '删除文本框
                    shp.Delete
                End If
            End If
        Next shp
    Next sld

End Sub