Option Explicit
' needs reference to Microsoft Word 14.0 Object Library
' or use late binding CreateObject("Word.Application")
Sub SlidesToWord()
Dim wd As New Word.Application
Dim wdoc As Word.Document
Dim s As Slide
wd.Visible = True
Set wdoc = wd.Documents.Add
For Each s In ActivePresentation.Slides
s.Copy
wd.Selection.Paste
Next
Dim o As Word.InlineShape
For Each o In wdoc.InlineShapes
'o.Width = 450
Next
Set wd = Nothing
Set wdoc = Nothing
End Sub
|