Re: Powerpoint 2004 Search and replace
Re: Powerpoint 2004 Search and replace
- Subject: Re: Powerpoint 2004 Search and replace
- From: Paul Berkowitz <email@hidden>
- Date: Fri, 12 Aug 2005 15:36:41 -0700
- Thread-topic: Powerpoint 2004 Search and replace
Title: Re: Powerpoint 2004 Search and replace
On 8/12/05 2:20 PM, "Paul Berkowitz" <email@hidden> wrote:
tell app "PowerPoint"
do Visual Basic "
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
"
end tell
Sorry, I forgot some quote escapes:
tell app "PowerPoint"
do Visual Basic "
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
"
end tell
--
Paul Berkowitz
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden