Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 06-04-2018, 09:36 AM
Deniz Deniz is offline How can I separate each slides from one PPT file? Windows 7 64bit How can I separate each slides from one PPT file? Office 2010 64bit
Novice
How can I separate each slides from one PPT file?
 
Join Date: Feb 2016
Posts: 3
Deniz is on a distinguished road
Default How can I separate each slides from one PPT file?


Hi Everyone. I have a powerpoint file which has 100 page(slides). What I want is to automatically separate each slide to create 100 seperate powerpoint files with keeping the existing masterslide features, design and layout. Is there any way to do that easily ?

Thank you very much in advance
Reply With Quote
  #2  
Old 06-05-2018, 04:00 AM
JohnWilson JohnWilson is offline How can I separate each slides from one PPT file? Windows 7 64bit How can I separate each slides from one PPT file? Office 2016
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

For info this is crossposted on at least two other sites where there are answers
https://answers.microsoft.com/en-us/...c-c0a40721339f
http://www.vbaexpress.com/forum/show...m-one-PPT-file
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
  #3  
Old 06-05-2018, 06:05 AM
Deniz Deniz is offline How can I separate each slides from one PPT file? Windows 7 64bit How can I separate each slides from one PPT file? Office 2010 64bit
Novice
How can I separate each slides from one PPT file?
 
Join Date: Feb 2016
Posts: 3
Deniz is on a distinguished road
Default

Quote:
Originally Posted by JohnWilson View Post
For info this is crossposted on at least two other sites where there are answers
https://answers.microsoft.com/en-us/...c-c0a40721339f
http://www.vbaexpress.com/forum/show...m-one-PPT-file


Hello I found the answer. Following VBA code from John is giving me the right answer. For your information.



Sub splitFiles()
Dim tempR As Presentation
Dim opres As Presentation
Dim L As Long
Dim oFolder As String
'requires v. 2010 or later
On Error Resume Next
Set opres = ActivePresentation
Set tempR = Presentations.Add
tempR.PageSetup.SlideSize = opres.PageSetup.SlideSize
oFolder = Environ("USERPROFILE") & "\Desktop\Files\"
MkDir oFolder
For L = 1 To opres.Slides.Count
opres.Slides(L).Copy
tempR.Windows(1).Panes(1).Activate
Call CommandBars.ExecuteMso("PasteSourceFormatting")
Call tempR.SaveCopyAs(oFolder & "Slide" & CStr(L) & ".pptx", ppSaveAsOpenXMLPresentation)
tempR.Slides(1).Delete
Next L
tempR.Saved = True
tempR.Close
End Sub
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Mail merge separate recipients same file Cafeaulait Outlook 6 05-10-2018 08:00 PM
How can I separate each slides from one PPT file? Merge separate words files into one master file. ronka1997 Word 3 08-09-2016 01:26 AM
How can I separate each slides from one PPT file? Auto Save Every Page(s) as a separate file, and name each new file automatically by the first line? commissarmo Word VBA 3 03-14-2015 12:53 AM
How can I separate each slides from one PPT file? Copying a part of a docx file as a separate file officeboy09 Word 6 09-26-2014 05:15 PM
How can I separate each slides from one PPT file? Creating separate file for each mail merge doshshirl Mail Merge 3 02-15-2014 08:49 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 06:20 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft