Microsoft Office Forums - View Single Post - Copy each slide text boxes and images to Word

JohnWilson · 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