[AI Assisted Office] PDF から PPT へ、透かしを削除

PDF から PPT は、 PDF アップロード リンクを PPT に変換します。https://www.camscanner.com/pdftoppt https://www.camscanner.com/pdftoppt _ウォーターマークを削除

ステップ 1: ビューマクロを開く

ステップ 2: マクロ名を入力します (テキスト、文字、または数字と文字を使用できますが、純粋な数字は使用できません)。

ステップ 3: 「作成」をクリックします

ステップ 4: 次のコードをコピーします。

コードはChatGPTを使用して生成されます 実装したい機能を指定すると、対応するマクロコードが生成されます マクロコードはVB言語です。

以下は、特定のテキストを含むすべてのページからコンテンツを削除するための PowerPoint VBA マクロ コードです。

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

すべてのページの同じ場所にあるドキュメント (画像、テキストなど) を削除する場合は、次の変更されたマクロ コードを使用できます。

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

ステップ5：元の「マクロコード」を削除する

ステップ6: コピーしたテキストを、開いた「マクロコード」の空白スペースに貼り付けます。

ステップ 7: 「マクロ コード」ドキュメントを閉じるか最小化します。

ステップ 8: 元のドキュメント内をクリックして、削除する画像またはその他のオブジェクトを選択します。

ステップ 9: 「マクロ実行」をクリックします。

この時点で、同じ場所にあるすべてのテキスト オブジェクトが削除されているので、[保存] をクリックするだけです。

このようにして、PDF を独自のオリジナル PPT に変換し、修正を加えることができます。