Copy each slide text boxes and images to Word

[leaning]

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]

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

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