Group: microsoft.public.word.vba.general
From: VBAimf
Date: Saturday, February 16, 2008 11:09 AM
Subject: Creating a Find and Replace Macro in Powerpoint

I'd like to create a Find and Replace Macro in Powerpoint that I can
use each day on a different Powerpoint file.

I'm very inexperienced at VBA. However, I was able to use the macro
recorder in MS Word to record a find and replace macro, which I placed
into its own template document, which covers over a hundred items.
Talk about the timesaver of the century.

I also have to edit Powerpoint documents. My edits include text in
textboxes in the slide as well as note pages.

1. Since Powerpoint doesn't have a macro recorder, could I copy the
text below that is used in MS Word into Powerpoint?

2. How would I save it to be available over time (since I edit
documents everyday)?


I recognize that this question is probably very basic for the talent I
see here, but it saves me considerable time doing edits that a
computer can handle in seconds. Thanks.

Jay
VBA is my friend (VBAimf)



Sub Godtest()
'
' God test Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "god"
.Replacement.Text = "God"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub