'PURPOSE: Find & Replace a list of text/values throughout entire PowerPoint presentationįindList = Array("Canada", "United States", "Mexico")įor x = LBound(FindList) To UBound(FindList) Set ShpTxt = ShpTxt.Characters(TmpTxt.Start + TmpTxt.Length, ShpTxt.Length) 'Find Any Additional instances of "Find" word (if exists) 'Find First Instance of "Find" word (if exists) 'PURPOSE: Find & Replace text/values throughout entire PowerPoint presentationįor Each sld In ActivePresentation.Slides This VBA macro will perform a standard find and replace for one word of your choosing. Next the code would trim down the sentence and search " & pet the cat" for any more instances of " cat" (and so on.). The first find replace would analyze the entire sentence and change it to " I ran to the dog & pet the cat".
Here are the two things you need to understand: There are a couple of things that confuse people while converting your mindset from an Excel find/replace to a PowerPoint find/replace.
The following macro code snippets will show you different variations of how to perform find and replace automations with VBA in Microsoft PowerPoint. This post is a follow-up article to Find And Replace With Excel VBA.