PDF轉(zhuǎn)PPT?將PDF上傳鏈接即可轉(zhuǎn)換成PPT。???????????????https://www.camscanner.com/pdftoppthttps://www.camscanner.com/pdftoppt??????????????移除水印

第一步：打開視圖-宏

第二步：輸入宏名（可以是人以文字、字母或數(shù)字加字母，但不能是純數(shù)字）

第三步：點擊創(chuàng)建

第四步：復(fù)制以下代碼

代碼用ChatGPT生成，告訴它，你要實現(xiàn)的功能，生成相應(yīng)的宏代碼，宏代碼是VB語言

以下是用于刪除所有頁面中包含特定文本內(nèi)容的 PowerPoint VBA 宏代碼：

Sub DeleteTextContainingChinaUniversity()
    Dim oSlide As Slide
    Dim oShape As Shape
    Dim searchText As String
    
    searchText = "中國大學(xué)"
    
    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

如果您想要刪除所有頁中相同位置的文稿（圖片、文字等），可以使用以下修改后的宏代碼：

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

第五步：刪除原來的“宏代碼”

第六步：將復(fù)制的文字粘貼到打開的“宏代碼”空白處

第七步：關(guān)閉或最小化“宏代碼”文檔

第八步：在原文檔中點擊選中要刪除的圖片或其他對象

第九步：點擊宏-運行

至此，所有相同位置的文搞對象都已經(jīng)刪除，點擊“保存”就可以了

這樣，你就可以把PDF變成自己的原創(chuàng)PPT，做任意修改了。文章來源地址http://www.zghlxwxcb.cn/news/detail-685911.html

到了這里，關(guān)于【AI輔助辦公】PDF轉(zhuǎn)PPT，移除水印的文章就介紹完了。如果您還想了解更多內(nèi)容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！