This example replaces every whole-word occurrence of "CompanyX" in the active presentation with "CompanyY."
For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
shp.TextFrame.TextRange.Replace FindWhat:="CompanyX", _
Replacewhat:="CompanyY", WholeWords:=True
Next shp
Next sld
This example replaces the Times New Roman font with the Courier font in the active presentation.
Application.ActivePresentation.Fonts _
.Replace "Times New Roman", "Courier"