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