Find and replace words in PowerPoint using a Excel VBA macro

Hi
try this
you will need to enter the range with values to be replaces and replace them with as the range Searchrange (I used A2:B4)
to run powerpoint macros from excel you must select the powerpoint object reference library in the VBA area under tools > references

Please Login or Register  to view this content.

Hi NickyC,

Thank you for your reaction.

I tried it, but got a Run time error '-2147024809 (80070057)' The specified value is out of range on:

If PPShape.HasTextFrame And PPShape.TextFrame.TextRange.Text <> "" Then

I hope you can help me again!

Hi that could be because some of the shapes in the powerpoint are protected, or are of a format that does not accept text eg pictures.

try this variation - it worked for me when I added in some pictures that triggered the same error message with the code above.

Please Login or Register  to view this content.

Hi NickyC,

Thank you so much!
You've helped me a lot!

Hi NickyC,

Do you know if it's also possible to replace to words that are in a table?

Kind regards,

Rogier

Hi
this version should replace text in tables as well as shapes.
Sorry, it's rather clunky - one of the forum gurus might offer you a shorter and more elegant alternative

Please Login or Register  to view this content.

Hi NickyC,

Thank you very much again!
You've helped me a lot!