Set command in VBA causes Word Insufficient Memory

[John Svendsen]

Hi,
I have PPT files that have from 100 to 300 slides with about 1 word embedded
table in each slide. I built a macro that copies embedded word tables in PPT
to a WORD document, but with large PPT files I get a Word error
"Insufficient Memory or Disk space. Close extra windows and save your work",
but I have a lot of RAM and disk space.
When debugging VBA, the 'Set oDoc= shp.OLEFormat.Object' becomes yellow.
I am running Powerpoint/Word 2000 SR-3 on Windows 2000 Professional SP-4.
Anybody have a clue what's going on here? Thanks so much! JS
====================================
Sub CopyPastePPT2Word()
Dim shp As Shape
Dim sld As Slide
Dim wdApp As Word.Application
Dim oDoc As Word.Document
Set wdApp = New Word.Application
With wdApp
.Documents.Add
.Visible = True
End With
For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoEmbeddedOLEObject Then
If shp.OLEFormat.ProgID = "Word.Document.8" Then
Set oDoc = shp.OLEFormat.Object
oDoc.Select
Selection.Copy
With wdApp
.Selection.Paste
.Selection.TypeParagraph
End With
Set oDoc = Nothing
End If
End If
Next shp
Next sld
End Sub