Find and Replace in PowerPoint

[Lynn Knox]

Help! I've been spoiled by the detailed Find and Replace dialog box in MS
Word. Now I'm working in PowerPoint XP, and I need to change two spaces and
an open paren to an enter character. Since a handy list of non-printing
characters is not provided in PPXP, I've tried searching for an ASCII
character to use in its place. Although I can use an ASCII character (alt +
0169, for instance), and replace successfully, I am unable to determine the
appropriate key code for an enter character. Does anyone have any
suggestions? I've also tried recording a macro, but the Microsoft
Knowledgebase acknowledges that macros do not record find and replace
sequences. Thanks!

 

[Steve Rindsberg]

Help! I've been spoiled by the detailed Find and Replace dialog box in MS
Word. Now I'm working in PowerPoint XP, and I need to change two spaces and
an open paren to an enter character. Since a handy list of non-printing
characters is not provided in PPXP, I've tried searching for an ASCII
character to use in its place. Although I can use an ASCII character (alt +
0169, for instance), and replace successfully, I am unable to determine the
appropriate key code for an enter character. Does anyone have any
suggestions? I've also tried recording a macro, but the Microsoft
Knowledgebase acknowledges that macros do not record find and replace
sequences. Thanks!

Try 0013 or 0010



================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

 

[Lynn Knox]

Thanks, Steve, but I tried both of those. Although the other ASCII codes
worked, these two didn't appear when I used the key combination. Any other
suggestions?

Thanks again,

L.

 

[Steve Rindsberg]

Thanks, Steve, but I tried both of those. Although the other ASCII codes
worked, these two didn't appear when I used the key combination. Any other
suggestions?

Here's a slight mod to a bit of code from the PPT2003 VBA help file. It replaces
CRLF or crlf with a carriage return/linefeed pair.

Sub ReplaceText()

Dim oSld As Slide
Dim oShp As Shape
Dim oTxtRng As TextRange
Dim oTmpRng As TextRange

Set oSld = Application.ActivePresentation.Slides(1)

For Each oShp In oSld.Shapes
Set oTxtRng = oShp.TextFrame.TextRange
Set oTmpRng = oTxtRng.Replace(FindWhat:="CRLF", _
Replacewhat:=vbCrLf, WholeWords:=True)
Do While Not oTmpRng Is Nothing
Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
oTxtRng.Length)
Set oTmpRng = oTxtRng.Replace(FindWhat:="crlf", _
Replacewhat:=vbCrLf, WholeWords:=True)
Loop
Next oShp

End Sub

Thanks again,

L.

================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

 

[Lynn Knox]

Thanks so much, Steve. I should have thought to look in the help file
myself, but I appreciate your help. I've played with it a bit, and I'm
having some success in simple text boxes, but it seems to be gliding right
past my tables. Any thoughts?

Thanks again,

Lynn

 

[Steve Rindsberg]

Thanks so much, Steve. I should have thought to look in the help file
myself, but I appreciate your help. I've played with it a bit, and I'm
having some success in simple text boxes, but it seems to be gliding right
past my tables. Any thoughts?

Something told me tables'd be the next question. <g>

Have a go with this:

Working with PowerPoint tables
http://www.pptfaq.com/FAQ00790.htm

Thanks again,

Lynn

================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================