Remove some watermarks in Powerpoint template files

ppt-watermarks-removal.vbs

Option Explicit

Sub RemoveWatermarks()

'image watermark values
Dim imgWidth As Double, imgHeight As Double, delta As Double
imgWidth = 100.12
imgHeight = 100.12
delta = 0.1

'text watermark values
Dim searchTerm As String
searchTerm = "some watermark text"
Dim txtRange As TextRange, foundRange As TextRange

'slide and shape values
Dim sld As Slide, shp As Shape

'go through each slides
For Each sld In Application.ActivePresentation.Slides

    For Each shp In sld.Shapes
    
        'find image watermarks
        If shp.Type = msoPicture Then
            If Math.Abs(shp.Width - imgWidth) < delta And Math.Abs(shp.Height - imgHeight) < delta Then
                'remove the image watermark
                shp.Delete
            End If
        ElseIf shp.HasTextFrame Then
            'find text watermarks
            Set txtRange = shp.TextFrame.TextRange
            
            Set foundRange = txtRange.Find(FindWhat:=searchTerm, MatchCase:=False, WholeWords:=False)
            
            If (Not foundRange Is Nothing) Then
                'remove the text watermarks!
                shp.Delete
            End If

        End If
    
    Next
    
Next

MsgBox ("all done.")

End Sub