Quote:
Originally Posted by JohnWilson
It should remove them all.
Are you sure you got the code correct (eg NOT taking out the asterisks's when you modified the email the email?)
Can you post the presentation somewhere? (maybe just a few of the slides)
|
File is big but plz first check my code to make sure that I didn't modify it in wrong way:
Sub Hello()
Dim osld As Slide
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).HasTextFrame Then
If osld.Shapes(L).TextFrame.HasText Then
' obviously use their address
If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("*email@aa.com*") Then osld.Shapes(L).Delete
End If
End If
Next
Next
End Sub