Whether you can do this will depend on EXACTLY what they did!
(Foolproof?? Never underestimate the ingenuity of fools)
This might work but test on a copy!
Sub replaceMe()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
'look for newline followed by Tab and switch to SPACE
With oshp.TextFrame.TextRange
.Text = Replace(.Text, vbCr & vbTab, " ")
End With
End If
Next oshp
Next osld
End Sub
|