How to apply a changed master to multiple presentations

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a library of presentations based on a master that has now changed.
How do I (if I can) reapply the changes to all of the existing presentations
without opening each one individually?
 
Your going to have to open them and apply your new master

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><>Email unless specifically requested will not be opened<><>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


|I have a library of presentations based on a master that has now changed.
| How do I (if I can) reapply the changes to all of the existing
presentations
| without opening each one individually?
|
 
Fairmeadow said:
I have a library of presentations based on a master that has now changed.
How do I (if I can) reapply the changes to all of the existing presentations
without opening each one individually?
Click to expand...

How's your Visual Basic?
 
Unfortunately non-existant!

I can see how to do it using automator on the Mac, but that's not an option
in the current situation.

Thanks for the suggestion though.
 
Unfortunately non-existant!

I can see how to do it using automator on the Mac, but that's not an option
in the current situation.
Click to expand...

If you can deal with that, you may have already won a fre.. ooops. Wrong spiel.
You may be able to work from this:

Batch: Do something to every file in a folder
http://www.rdpslides.com/pptfaq/FAQ00536.htm

Modify sub MyMacro along these lines:

Sub MyMacro(strMyFile As String)
' this gets called once for each file that meets the spec
' you enter in ForEachPresentation
' strMyFile is set to the file name each time

' Probably at a minimum, you'd want to:
Dim oPresentation As Presentation
Set oPresentation = Presentations.Open(strMyFile)

With oPresentation

.ApplyTemplate FileName:="C:\Whatever\Something.pot"
' change the string in quotes to the full path to your
' template
End With

oPresentation.Save
oPresentation.Close

End Sub
 
Back
Top