Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Office > PowerPoint

LinkBack Thread Tools Display Modes
Old 08-07-2017, 11:10 AM   #1
Join Date: Jan 2011
Posts: 14
leaning is on a distinguished road
Exclamation Copy each slide text boxes and images to Word


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.


leaning is offline   Reply With Quote
Old 08-08-2017, 06:42 AM   #2
Join Date: Nov 2008
Location: UK
Posts: 1,638
JohnWilson will become famous soon enough

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
With WDApp.Selection
.collapse (0)
.InsertBreak (7)
End With
Next osld
End Sub
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
JohnWilson is offline   Reply With Quote

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 01:43 PM.

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