【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,做任意修改了。

相关推荐
集成显卡15 小时前
AI探索 | 豆包智能助手跟扣子空间(AI办公助手)有什么区别
人工智能·chatgpt·agent·智能助理
Jet450516 小时前
第100+43步 ChatGPT学习:R语言实现特征选择曲线图
学习·chatgpt·r语言
小马过河R20 小时前
Prompt提示词的主要类型和核心原则
人工智能·chatgpt·prompt
陈敬雷-充电了么-CEO兼CTO2 天前
主流大模型Agent框架 AutoGPT详解
人工智能·python·gpt·ai·chatgpt·nlp·aigc
代码能跑就行管它可读性3 天前
【论文复现】利用生成式AI进行选股和分配权重
人工智能·chatgpt
前端小盆友3 天前
从零实现一个GPT 【React + Express】--- 【4】实现文生图的功能
react.js·chatgpt·express
czkm3 天前
苹果🍎的奇幻漂流,当你提问后,ChatGPT在“想”什么?
chatgpt·llm
陈敬雷-充电了么-CEO兼CTO3 天前
复杂任务攻坚:多模态大模型推理技术从 CoT 数据到 RL 优化的突破之路
人工智能·python·神经网络·自然语言处理·chatgpt·aigc·智能体
G皮T3 天前
【人工智能】ChatGPT、DeepSeek-R1、DeepSeek-V3 辨析
人工智能·chatgpt·llm·大语言模型·deepseek·deepseek-v3·deepseek-r1
坤坤爱学习2.05 天前
求医十年,病因不明,ChatGPT:你看起来有基因突变
人工智能·ai·chatgpt·程序员·大模型·ai编程·大模型学