VBA for Find and Replace a string of text

[rwc1023]

Hi Paul,
sorry to ask one more question here. after running your codes, the VBA randomly added four extra blank lines to text content of some of the slides and those slides do not have any of the text i am looking for. It is very strange. it looks random but i am sure its got to be the codes.
Any idea?

thank you!

I'd just call pvtReplaceText () two times

Sub drv()
    Call pvtReplaceText("puppy", "dog", True)
    Call pvtReplaceText("doggie", "dog", True)
End Sub