[AI Assisted Office] PDF para PPT, remova marca d’água

PDF para PPT  converte o link de upload de PDF para PPT. ​​​​​​​​​​​​​​ https://www.camscanner.com/pdftoppt https://www.camscanner.com/pdftoppt _ Remover marca d'água

Passo 1: Abrir Visualização-Macro

Passo 2: Insira o nome da macro (pode ser texto, letras ou números mais letras, mas não pode ser números puros)

Etapa 3: clique em Criar

Etapa 4: copie o seguinte código

O código é gerado usando ChatGPT. Informe a função que deseja implementar e gere o código de macro correspondente. O código de macro está em linguagem VB.

A seguir está o código de macro VBA do PowerPoint para excluir conteúdo de todas as páginas que contêm texto específico:

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

Se quiser excluir documentos (imagens, texto, etc.) no mesmo local em todas as páginas, você pode usar o seguinte código de macro modificado:

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

Etapa 5: exclua o "código macro" original

Passo 6: Cole o texto copiado no espaço em branco do "Código Macro" aberto

Passo 7: Feche ou minimize o documento “Código Macro”

Passo 8: Clique no documento original para selecionar a imagem ou outro objeto que deseja excluir.

Etapa 9: clique em Executar macro

Neste ponto, todos os objetos de texto no mesmo local foram excluídos, basta clicar em “Salvar”.

Desta forma, você pode transformar o PDF em seu PPT original e fazer quaisquer modificações.