vbscript for opening powerpoint templates from internet explorer

[wickednz]

As part of a vbscript function I have the following for opening excel
and powerpoint documents:

elseif ucase(right(name,3)) = "XLS" or ucase(right(name,3)) = "XLT"
then

set exl = createobject("Excel.Application&quot
exl.visible = true
exl.Workbooks.add(name)
set exl = nothing

elseif ucase(right(name,3)) = "PPT" or ucase(right(name,3)) = "POT"
then

set pwrptApp = createobject("Powerpoint.Application&quot
pwrptApp.visible = true

'pwrptApp.Presentations.Open(name) 'Note: doesn't open templates as
new documents

pwrptApp.Presentations.add(name)
set pwrptApp = nothing



The problem I'm having is with the line
"pwrptApp.Presentations.add(name) " for opening powerpoint
presentations. If I use .add it only opens powerpoint with no document
loaded if I use .open it opens the presentation, but if it is a
template presentation (*.pot) it opens it as the template and not a
new presentation based on the template.


any help on this appreciated
thanks,
Robert

 

[jonscott8]

Powerpoint has an explicit method called ApplyTemplate you need to use.

pwrptApp.Presentations.add True 'fyi, there is no name parameter for this method
pwrptApp.ActivePresentation.ApplyTemplate name

See also:

http://msdn.microsoft.com/library/en-us/off2000/html/ppmthapplytemplate.asp

http://support.microsoft.com/support/kb/articles/Q262/1/78.ASP

http://www.microsoft.com/officedev/articles/sampauto.htm#Presentation

Jon Hawkins