Powerpoint find and replace (VBA?)

[WimVisagie]

Hi,



I'm used to Word's "record macro" function so could really use some help with Powerpoint (2007)! Basically I need to find and replace/delete all instances of return+tab character in a slideshow (500+ slides).

Someone has done some pretty silly formatting with some bullet points and I have to fix them.

I've tried looking around on google for some answers but didn't really get anywhere - can anyone help?

Thanks!

Wim

This is cross posted http://www.vbaexpress.com/forum/showthread.php?t=45431
Wim - please mention cross posts as there may be folk working on your problem solved elsewhere!

[JohnWilson]

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

[WimVisagie]

It did seem to work on some instances but not others... Powerpoint not having a show/hide characters function really didn't help on this problem! In any case I ran out of time to sort it out so I handed it over to an intern to do by hand...

Thanks for answering though.