Copy each slide text boxes and images to Word

leaning · #1 08-07-2017, 11:10 AM

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

JohnWilson · #2 08-08-2017, 06:42 AM

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

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