Schleife einsetzen.
29.01.2004 15:46:57
marc
ich will aus eine xls.Datei ppt-Folien in einem anderen Ordner loeschen.
der code erfuellt die Deleteaufgabe ohne Probleme.
Nun brauche ich eure Hilfe.Kann ich mit eine Schleife Ordner und das Laufwerk
wechseln ???
marc :o)
Sub KillTheSlides()
Dim pp As New PowerPoint.Application
With pp
Visible = msoTrue
ActiveWindow.Selection.SlideRange.Shapes(1).Delete
'ActiveWindow.Selection.ShapeRange.Delete
ActivePresentation.Save
Presentations.Open FileName:="C:\eMail\Ne K01 .ppt", ReadOnly:=msoFalse
ActiveWindow.Selection.SlideRange.Shapes(1).Delete
ActivePresentation.Save
Presentations.Open FileName:="C:\eMail\Ne K02.ppt", ReadOnly:=msoFalse
ActiveWindow.Selection.SlideRange.Shapes(1).Delete
ActivePresentation.Save
Presentations.Open FileName:="C:\eMail\Ne K03.ppt", ReadOnly:=msoFalse
ActiveWindow.Selection.SlideRange.Shapes(1).Delete
ActivePresentation.Save
Presentations.Open FileName:="C:\eMail\Ne K04.ppt", ReadOnly:=msoFalse
ActiveWindow.Selection.SlideRange.Shapes(1).Delete
ActivePresentation.Save
Presentations.Open FileName:="C:\eMail\Ne K05.ppt", ReadOnly:=msoFalse
ActiveWindow.Selection.SlideRange.Shapes(1).Delete
ActivePresentation.Save
End With
End Sub