Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Office > PowerPoint

Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old 08-07-2017, 11:10 AM
leaning leaning is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Jan 2011
Posts: 12
leaning is on a distinguished road
Exclamation Copy each slide text boxes and images to Word

Hello!



Is there a macro to Select All on a slide and copy it to a page in Word, and do this for every slide?

I was doing it manually, but there are 350 slides, so it's taking awhile.

I appreciate your help.

Regards,
leaning
Reply With Quote
  #2  
Old 08-08-2017, 06:42 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2016
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,575
JohnWilson will become famous soon enough
Default

If you are currently just copy pasting try this. It may need some work!

Code:
Sub toWRD()
Dim WDApp As Object
Dim WdDoc As Object
Dim osld As Slide
Set WDApp = CreateObject("Word.Application")
WDApp.Visible = True
Set WdDoc = WDApp.Documents.Add
WdDoc.PageSetup.Orientation = 1
For Each osld In ActivePresentation.Slides
osld.Select
osld.Shapes.SelectAll
ActiveWindow.Selection.Copy
With WDApp.Selection
.Paste
.collapse (0)
.InsertBreak (7)
End With
Next osld
End Sub
__________________
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
Reply
Please reply to this thread with any new information or opinions.

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Can't copy text boxes in PowerPoint 2011 for Mac dkhanal PowerPoint 2 09-08-2014 01:26 PM
How to Wrap Text on Images in Text Boxes mrniceguy Word 1 02-16-2014 04:42 PM
Copy formatting setting between images on the slide pogonoforysci1 PowerPoint 11 08-10-2012 03:54 AM
Can text boxes be linked from one slide to another? John Wade PowerPoint 3 01-18-2012 02:11 PM
slide image wont copy with text to new slide lewis.mulhollen PowerPoint 1 12-17-2011 03:17 AM


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


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft