Importing multiple files? (Office XP)

Topic

New Reply

Is there a way to set up a macro to do the following actions? :
On Click
Go to C:/My PowerPoint Presentations
SelectAll (select all files in folder)
Import all selected files

?

Reply | Quote

Replies

You can open multiple files in PPT by using Shift Clicking to select multiple files when in the Open dialog. Use Ctrl Clicking to select files that aren’t grouped together.

Reply | Quote

There’s no way to set up a macro?

Reply | Quote

What exactly do you mean by import? Open in PowerPoint, or insert all slides from all presentations into the currently open presentation? (Neither seems particularly useful)

Reply | Quote

Import all slides from particular presentations into current presentation….

Reply | Quote

Does this do what you want?

Sub InsertSlides()
‘ Path must include trailing backslash
Const strPath = “C:My PowerPoint Presentations”
Dim strFile As String
strFile = Dir(strPath & “*.ppt”)
Do While Not (strFile = “”)
ActivePresentation.Slides.InsertFromFile strPath & strFile, ActivePresentation.Slides.Count
strFile = Dir
Loop
End Sub

Reply | Quote

Does this do what you want?

Sub InsertSlides()
‘ Path must include trailing backslash
Const strPath = “C:My PowerPoint Presentations”
Dim strFile As String
strFile = Dir(strPath & “*.ppt”)
Do While Not (strFile = “”)
ActivePresentation.Slides.InsertFromFile strPath & strFile, ActivePresentation.Slides.Count
strFile = Dir
Loop
End Sub

Reply | Quote

Import all slides from particular presentations into current presentation….

Reply | Quote

What exactly do you mean by import? Open in PowerPoint, or insert all slides from all presentations into the currently open presentation? (Neither seems particularly useful)

Reply | Quote

There’s no way to set up a macro?

Reply | Quote

You can open multiple files in PPT by using Shift Clicking to select multiple files when in the Open dialog. Use Ctrl Clicking to select files that aren’t grouped together.

Reply | Quote