🚀 go-pugleaf

Not having much luck either way now.

For Each oldFrame In sourceDoc.Pages(i).pageItems

Set id.ActiveDocument = sourceDoc
            Set id.ActiveWindow = sourceWindow
            Set id.ActiveWindow.ActiveSpread = sourceDoc.Pages.Item(i).Parent

id.Select oldFrame, False

id.Copy

Set id.ActiveDocument = destDoc
            Set id.ActiveWindow = destWindow
            Set id.ActiveWindow.ActiveSpread = destPage.Parent



id.Paste

id.ActiveWindow.ActiveSpread.pageItems.Item(1).GeometricBounds = oldFrame.GeometricBounds



Next oldFrame

this code keeps crashing because oldFrame=nothing

When I look in the locals window and expand sourceDoc.Pages(21).pageitems

There are eight items in the collection.

This seems to work for the first run through. (first page is 20) when it goes to the next page (21) it copies and pastes 4 frames then craps giving me a type mismatch in the next oldframe line.

When it stops, oldframe shows "nothing" as you hover the mouse over the variable in the code window.

I'm completely stumped.

Ben