vbs 删除 PPT 中的文本框

最新推荐文章于 2025-05-06 20:30:00 发布

54newbie

最新推荐文章于 2025-05-06 20:30:00 发布

阅读量272

点赞数

分类专栏： Linux 文章标签： powerpoint

本文链接：https://blog.csdn.net/dgwxligg/article/details/129202903

版权

Linux 专栏收录该内容

19 篇文章

订阅专栏

文章介绍了如何从中国大学MOOC的PDF课件中删除底纹文字，通过将PDF转换为PPTX格式，然后使用特定的VBA宏在PowerPoint中查找并删除含有特定文字的文本框。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如何去除中国大学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