That's what I thought.
Anyway, no, I do not do any VB or VBA coding.
If you know how (and could take the time to), would you write a script that
I could use?
> That's what I thought.
>
> Anyway, no, I do not do any VB or VBA coding.
>
> If you know how (and could take the time to), would you write a script that
> I could use?
This should do it. Watch out for linebreaks.
If you don't know what to do with vba macros, have a look here:
How do I use VBA code in PowerPoint?
http://www.rdpslides.com/pptfaq/FAQ00033.htm
Option Explicit
Sub BatchSave()
' Opens each PPT in the target folder and saves as PPT97-2003 format
Dim sFolder As String
Dim sPresentationName As String
Dim oPresentation As Presentation
' Get the foldername:
sFolder = InputBox("Folder containing PPT files to process", "Folder")
If sFolder = "" Then
Exit Sub
End If
' Make sure the folder name has a trailing backslash
If Right$(sFolder, 1) <> "\" Then
sFolder = sFolder & "\"
End If
' Are there PPT files there?
If Len(Dir$(sFolder & "*.PPT")) = 0 Then
MsgBox "Bad folder name or no PPT files in folder."
Exit Sub
End If
' Open and save the presentations
sPresentationName = Dir$(sFolder & "*.PPT")
While sPresentationName <> ""
Set oPresentation = Presentations.Open(sFolder & sPresentationName, , ,
False)
Call oPresentation.SaveAs(sFolder & "N_" & sPresentationName,
ppSaveAsPresentation)
oPresentation.Close
' New presentation is now saved as N_originalname.ppt
' Now let's rename them - comment out the next couple lines
' if you don't want to do this
' Original.PPT to Original.PPT.OLD
Name sFolder & sPresentationName As sFolder & sPresentationName &
".OLD"
' N_Original.PPT to Original.PPT
Name sFolder & "N_" & sPresentationName As sFolder & sPresentationName
sPresentationName = Dir$()
Wend
MsgBox "DONE"
End Sub
> > This converter was intended for use with PowerPoint 97 and probably does
> > some checking
[quoted text clipped - 17 lines]
> > PPTools: www.pptools.com
> > ================================================
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Paul L - 30 Jul 2005 02:57 GMT
What exactly needs to be changed for .pps and .pot files (just in case I
need this script in the future)?
>> That's what I thought.
>>
[quoted text clipped - 91 lines]
> PPTools: www.pptools.com
> ================================================
Steve Rindsberg - 30 Jul 2005 03:58 GMT
> What exactly needs to be changed for .pps and .pot files (just in case I
> need this script in the future)?
You're welcome.
Change instances of *.PPT to *.POT or *.PPS
Change "ppSaveAsPresentation" to ppSaveAsTemplate or ppSaveAsShow as
appropriate
> >> That's what I thought.
> >>
[quoted text clipped - 91 lines]
> > PPTools: www.pptools.com
> > ================================================
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Paul L - 30 Jul 2005 07:04 GMT
And what about Word (Documents/Templates) and Excel (Worksheets/Templates)?
I'm sure that there would be more to change, but what exactly?
Or should I ask this on the Word and Excel newsgroups?
>> What exactly needs to be changed for .pps and .pot files (just in case I
>> need this script in the future)?
[quoted text clipped - 112 lines]
> PPTools: www.pptools.com
> ================================================
Steve Rindsberg - 30 Jul 2005 15:47 GMT
> And what about Word (Documents/Templates) and Excel (Worksheets/Templates)?
> I'm sure that there would be more to change, but what exactly?
>
> Or should I ask this on the Word and Excel newsgroups?
I expect so.
And a hint before you do: when somebody you've never met spends the time to
code a solution to your problem, particularly one that might save you hours or
days of dull work, a word of thanks is appropriate, particularly before
demanding more features.
That'd just be common courtesy if you were dealing with paid technical support
staff, which you're not. We're all volunteers here.
Paul L - 31 Jul 2005 04:14 GMT
You are right.
And thank you for your work.
By the way, is there any web site or book that you would recommend which
will teach me VB/VBA?
>> And what about Word (Documents/Templates) and Excel
>> (Worksheets/Templates)?
[quoted text clipped - 14 lines]
> support
> staff, which you're not. We're all volunteers here.
Steve Rindsberg - 31 Jul 2005 20:25 GMT
> You are right.
>
> And thank you for your work.
>
> By the way, is there any web site or book that you would recommend which
> will teach me VB/VBA?
Any decent bookstore will have lots of books on VB.
Since VBA is virtually the same as VB with other application-specific features
layered on, learning VB is a good foundation. Pick a book that appeals to you.
Then on to VBA. For PowerPoint, there's precious little. MS Press has Office
2000 fundamentals by David Boctor. It covers the main Office apps and how to
write programs for them.
Mostly, look at web sites. There's a programming section at
http://www.pptools.com One of the pages there has links to other sites with
PPT programming information.
> >> And what about Word (Documents/Templates) and Excel
> >> (Worksheets/Templates)?
[quoted text clipped - 14 lines]
> > support
> > staff, which you're not. We're all volunteers here.
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================