Automatically deleting final (empty) paragraph from textboxes

[John Wilson]

Maybe

Sub ClearPara()
    Dim sld As Object, shp As Object
    Dim otxR   As Object
    Const SPACE As String = " "
    strTarget = Chr(32)
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame Then
                If shp.TextFrame.HasText Then
                    Set otxR = shp.TextFrame.TextRange
                    While otxR.Characters(otxR.Characters.Count) = SPACE _
                    Or otxR.Characters(otxR.Characters.Count) = vbCr
                    otxR.Characters(otxR.Characters.Count).Delete
                    Wend
                End If
            End If
        Next shp
    Next sld
End Sub