I'm using the following code to import all my single slide presentations into ONE presentation. (I have about 100 .pptx files in this directory) Since all the files have the same naming convention, is there a way to use a wild card to import ALL the *.pptx files?
I've tried using ".....Overview July 2013 -Draft_*.pptx" and that will not work. Does anyone know how to accomplish this?
Here is what I am using:
Private Sub CommandButton1_Click()
Dim FileName As String
Dim Index, SlideStart, SlideEnd As Long
ActivePresentation.Slides.InsertFromFile "C:\Documents and Settings\amta\Desktop\Unzipped\Overview July 2013 -DRAFT_0001.pptx", ActivePresentation.Slides.Count, 1
ActivePresentation.Slides.InsertFromFile "C:\Documents and Settings\amta\Desktop\Unzipped\Overview July 2013 -DRAFT_0002.pptx", ActivePresentation.Slides.Count, 1
ActivePresentation.Slides.InsertFromFile "C:\Documents and Settings\amta\Desktop\Unzipped\Overview July 2013 -DRAFT_0003.pptx", ActivePresentation.Slides.Count, 1
End Sub