PowerPoint macro to replace double empty paragraph markers

pptx-replacenotesCRCR.vbs

' Replace all double paragraph carriage returns in PowerPoint Notes.
' Also handles multiple Notes pages per slide.
Sub NotesFix()
   Dim osld As Slide
   Dim oshp As Shape
   Dim strNotes As String
   For Each osld In ActivePresentation.Slides
      For Each oshp In osld.NotesPage.Shapes
        If oshp.HasTextFrame Then
            If oshp.TextFrame.HasText Then
                ' Replace \r\r with \r (PowerPoint doesn't use CRLF in notes, just CR -- go figure)
                oshp.TextFrame.TextRange.Text = Replace(oshp.TextFrame.TextRange.Text, "!" & Chr(13) & Chr(13), "!" & Chr(13))
                oshp.TextFrame.TextRange.Text = Replace(oshp.TextFrame.TextRange.Text, ". " & Chr(13) & Chr(13), "." & Chr(13))
                oshp.TextFrame.TextRange.Text = Replace(oshp.TextFrame.TextRange.Text, "." & Chr(13) & Chr(13), "." & Chr(13))
                oshp.TextFrame.TextRange.Font.Bold = False
                oshp.TextFrame.TextRange.Font.Size = 10
            End If
        End If
      Next oshp
   Next osld
End Sub