#1
|
|||
|
|||
Copy each slide text boxes and images to Word
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 |
#2
|
|||
|
|||
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 |