Use Regex in VBA to replace text between tags in PowerPoint (multiple occurences)

[John Wilson]

Nice Code. I was about to post this which does pretty much the same thing.

Sub notRegX2()
Dim oshp As Shape
Dim osld As Slide
Dim otxr2 As TextRange2
Dim lngStart As Long
Dim lngEnd As Long
For Each osld In ActivePresentation.Slides
   For Each oshp In osld.NotesPage.Shapes
      If oshp.HasTextFrame Then
         If oshp.TextFrame2.HasText Then
            Set otxr2 = oshp.TextFrame2.TextRange
            While InStr(otxr2.Text, "<code1>") > 0
               lngStart = InStr(otxr2.Text, "<code1>")
               lngEnd = InStr(otxr2.Text, "</code1>") + Len("</code1>")
               otxr2.Characters(lngStart, lngEnd - lngStart).Delete
           Wend
        End If
     End If
  Next oshp
Next osld
End Sub