A stupid find question (1 Viewer)

[The Rev]

I need to find a string in a textbox on a PowerPoint slide I am filling from my database. I need to replace the entire string <with quotes> with the word Observation:

"Other than Satisfied" requirements


I have

xh = objShape.TextFrame.TextRange.Find("Other Than Satisfied")
If xh = ("Other Than Satisfied") Then
objShape.TextFrame.TextRange.Text = "Observations"
End If


The problem as it sits is that I have another text box on the slide that may or may not contain the words Other than Satisfied in the string. Never with quotes around them though. So I want to only search for "Other than Satisfied" but not Other than Satisfied. How can I fix my code to do that?

 

[Minty]

Use the whole words option for the finding operation

TextRange.Find method (PowerPoint)

Office VBA reference topic

docs.microsoft.com

And search for the quotes

strSearch =  Chr(34) & "Other Than Satisfied" & Chr(34)
xh = objShape.TextFrame.TextRange.Find(strSearch)

 

[The Rev]

Use the whole words option for the finding operation

TextRange.Find method (PowerPoint)

Office VBA reference topic

docs.microsoft.com

And search for the quotes

strSearch =  Chr(34) & "Other Than Satisfied" & Chr(34)
xh = objShape.TextFrame.TextRange.Find(strSearch)

See? I always forget about the Chr objects... Appreciate the assist!!

 

[NauticalGent]

REV!

I see you're from Chester, VA...we're neighbors! Actually, I lived directly across from Shoosmith until I moved my wife and her
parents out to S. Prince George. There is another member here who is from Richmond but we do not see much of him anymore.

Small world...