🚀 go-pugleaf

Hi Holt,

Here is a solution:

Set myIndesign = CreateObject("InDesign.Application.2.0")
    Set myDocument = myIndesign.Documents.Add
    Set myPage = myDocument.Pages.Item(1)



Set myTextFrame = myDocument.TextFrames.Add
    myTextFrame.GeometricBounds = Array("10p", "10p", "12p", "20p")
    myTextFrame.TextContents = "This is image 1"

Set myRectangle = myDocument.Rectangles.Add
    myRectangle.GeometricBounds = Array("5p", "10p", "9p", "20p")
    myRectangle.Place "C:\test.jpg"

Set myGroup = myPage.Groups.Add(myDocument.Layers.Item(1), _
        Array(myTextFrame, myRectangle))

Set myTextFrame1 = myDocument.TextFrames.Add
    myTextFrame1.GeometricBounds = Array("20p", "10p", "30p", "25p")

Set myTextFrame2 = myDocument.TextFrames.Add
    myTextFrame2.GeometricBounds = Array("50p", "10p", "40p", "25p")

myTextFrame1.NextTextFrame = myTextFrame2

myIndesign.Select myGroup
    myIndesign.Cut

Set myPoint = myTextFrame1.InsertionPoints.Item(-1)

myIndesign.Select myPoint
    myIndesign.Paste
    myIndesign.Paste
    myIndesign.Paste

Roberto
roberto1soto@yahoo.com