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

相关推荐
量子位2 天前
GPT-5编程专用版发布!独立连续编程7小时,简单任务提速10倍,VS Code就能用
gpt·chatgpt
coder_pig2 天前
🤔 试试 OpenAI 的最强编程模型 "GPT-5-Codex"?
chatgpt·openai·claude
齐杰拉3 天前
源码精读:拆解 ChatGPT 打字机效果背后的数据流水线
前端·chatgpt
mit6.8244 天前
[code-review] 日志机制 | `LOG_LEVEL`
人工智能·chatgpt·代码复审
Orange_sparkle4 天前
解决Dify中接入xinference模型无法开关思考模式和使用function calling的问题
人工智能·深度学习·语言模型·chatgpt
gptplus4 天前
【重要通知】ChatGPT Plus将于9月16日调整全球充值定价,低价区将被弃用,开发者如何应对?
人工智能·gpt·chatgpt
跨境小新4 天前
ChatGPT大模型训练指南:如何借助动态代理IP提高训练效率
网络协议·tcp/ip·chatgpt
sinat_286945195 天前
Case-Based Reasoning用于RAG
人工智能·算法·chatgpt
陈敬雷-充电了么-CEO兼CTO5 天前
突破多模态极限!InstructBLIP携指令微调革新视觉语言模型,X-InstructBLIP实现跨模态推理新高度
人工智能·自然语言处理·chatgpt·blip·clip·多模态大模型·gpt-5
007tg5 天前
从ChatGPT家长控制功能看AI合规与技术应对策略
人工智能·chatgpt·企业数据安全