V
VBAimf
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
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