【AI辅助办公】PDF转PPT,移除水印

PDF转PPT将PDF上传链接即可转换成PPT。 https://www.camscanner.com/pdftoppthttps://www.camscanner.com/pdftoppt​​​​​​​​​​​​​​移除水印

第一步:打开视图-宏

第二步:输入宏名(可以是人以文字、字母或数字加字母,但不能是纯数字)

第三步:点击创建

第四步:复制以下代码

代码用ChatGPT生成,告诉它,你要实现的功能,生成相应的宏代码,宏代码是VB语言

以下是用于删除所有页面中包含特定文本内容的 PowerPoint VBA 宏代码:

vbscript 复制代码
Sub DeleteTextContainingChinaUniversity()
    Dim oSlide As Slide
    Dim oShape As Shape
    Dim searchText As String
    
    searchText = "中国大学"
    
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.HasTextFrame Then
                If InStr(1, oShape.TextFrame.TextRange.Text, searchText, vbTextCompare) > 0 Then
                    oShape.Delete
                End If
            End If
        Next oShape
    Next oSlide
End Sub

如果您想要删除所有页中相同位置的文稿(图片、文字等),可以使用以下修改后的宏代码:

vbscript 复制代码
Sub DeleteSamePositionShapesOnAllSlides()
    Dim oSlide As Slide, oShape As Shape
    Dim shapeToDelete As Collection
    Dim shape As Shape
    
    On Error Resume Next

    ' Collect shapes with the same position as the first selected shape
    Set shapeToDelete = New Collection
    If ActiveWindow.Selection.ShapeRange.Count > 0 Then
        Dim firstShape As Shape
        Set firstShape = ActiveWindow.Selection.ShapeRange(1)
        
        For Each oSlide In ActivePresentation.Slides
            For Each oShape In oSlide.Shapes
                If oShape.Top = firstShape.Top And oShape.Left = firstShape.Left _
                    And oShape.Height = firstShape.Height And oShape.Width = firstShape.Width Then
                    shapeToDelete.Add oShape
                End If
            Next oShape
        Next oSlide
    End If

    ' Delete collected shapes
    For Each shape In shapeToDelete
        shape.Delete
    Next shape
End Sub

第五步:删除原来的"宏代码"

第六步:将复制的文字粘贴到打开的"宏代码"空白处

第七步:关闭或最小化"宏代码"文档

第八步:在原文档中点击选中要删除的图片或其他对象

第九步:点击宏-运行

至此,所有相同位置的文搞对象都已经删除,点击"保存"就可以了

这样,你就可以把PDF变成自己的原创PPT,做任意修改了。

相关推荐
z千鑫3 小时前
【OpenAI】性价比极高的轻量级多模态模型GPT-4.1-mini介绍 + API KEY的使用教程!
人工智能·gpt·ai·语言模型·chatgpt
量子位19 小时前
Hinton万万没想到,前女友用ChatGPT跟他闹分手
chatgpt·ai编程
往事如yan1 天前
ChatGPT下的相关聊天提示词
chatgpt
蔡俊锋1 天前
【无标题】
人工智能·chatgpt
SEO_juper2 天前
大型语言模型SEO(LLM SEO)完全手册:驾驭搜索新范式
人工智能·语言模型·自然语言处理·chatgpt·llm·seo·数字营销
API流转日记2 天前
Gemini-2.5-Flash-Image-Preview 与 GPT-4o 图像生成能力技术差异解析
人工智能·gpt·ai·chatgpt·ai作画·googlecloud
摘星编程2 天前
ChatGPT 协作排查:Node.js 内存泄漏的定位与修复
chatgpt·性能优化·node.js·ai辅助调试·chatgpt协作
API流转日记3 天前
对接gemini-2.5-flash-image-preview教程
人工智能·gpt·ai·chatgpt·ai作画
陈敬雷-充电了么-CEO兼CTO3 天前
具身智能模拟器:解决机器人实机训练场景局限与成本问题的创新方案
大数据·人工智能·机器学习·chatgpt·机器人·具身智能
陈敬雷-充电了么-CEO兼CTO4 天前
具身智能多模态感知与场景理解:融合语言模型的多模态大模型
人工智能·python·gpt·语言模型·自然语言处理·chatgpt·多模态