TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub StuffTheMRU2000()
' Use this with PPT 2000 and later

    Dim DummyFilePath As String
    Dim x As Long
    Dim oPres As Presentation

    ' Edit this as you wish, but it MUST end with backslash
    ' and it should always be a path on the local hard drive
    DummyFilePath = "c:\temp\"

    ' save it nine times to stuff the MRU list
    For x = 1 To 9
        ' Create a new presentation
        Set oPres = Presentations.Add(msoTrue)
        ' Add a slide to it
        Call oPres.Slides.Add(1, ppLayoutBlank)
        ' Save it so it has a name
        ActivePresentation.SaveAs FileName:=DummyFilePath & "Dummy" & CStr(x) & ".ppt"
    Next

    Set oPres = Nothing

    MsgBox ("Done!" & vbCrLf _
        & "Now save each file once again manually before closing it.")

End Sub

Sub StuffTheMRU97()
' Use this for PowerPoint 97

Dim ThePath as String
Dim i as Integer

' Edit this as you wish:
ThePath = "C:\"
' For example
' ThePath = "C:\BogusFiles\NonEntity" would give C:\BogusFiles\NonEntity1.ppt and so on

' Create a new presentation
    Presentations.Add WithWindow:=msoTrue
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex

For i = 1 to 9
    ActivePresentation.SaveAs FileName:=ThePath & cstr(i) & ".ppt"
Next i

' Close the presentation
ActiveWindow.Close

' Delete the files
On error resume next
For i = 1 to 9
  Kill(ThePath & Cstr(i) & ".ppt")
Next i

End Sub