Delete End Points from List using Powerpoint VBA

Remove End Periods from List using VBA

Sub Remove_Periods_From_List()

Dim oTR As TextRange

If Not ActiveWindow.Selection.TextRange Is Nothing Then

oTR = ActiveWindow.Selection.TextRange

MsgBox(Len(oTR))

End If

oTR.RemovePeriods()

End Sub

oTR.RemovePeriods() removes the period at the end of each paragraph in the specified text