Sub openPre() Presentations.Open FileName:="C:\Time.ppt", ReadOnly:=msoFalseEnd Sub'Saving a Presentation