🚀 go-pugleaf

I'm writing an InDesign script in VB that finds the last text frame in a document and, if it overflows, continues to add pages/text frames until there is no longer any overflow. The code works once, on an initial right hand page, but when it gets to the left hand page the text frame gets drawn on the right hand page, but when I try to set the boundaries the text box page is re-drawn on the left hand page. (See comments in code for the exact location of the problem)

Thanks in advance for your help!
Steven Lee
Vaporloop Technology Solutions
steve At vaporloop Dot com

'##############code starts here##################
Sub Main()
Dim inD As InDesign.Application
Dim theDoc As InDesign.Document
Dim thePg As InDesign.Page
Dim theFrame As InDesign.TextFrame
Dim newPg As InDesign.Page
Dim NewFrame As InDesign.TextFrame

Set inD = CreateObject("InDesign.Application.CS2")
Set theDoc = inD.Documents(1)
Set thePg = theDoc.Pages.LastItem
Set theFrame = thePg.TextFrames.LastItem

'get the size we are going to make the text box

With theDoc
theTop = .MarginPreferences.Top
theLeft = .MarginPreferences.Left
theBot = .DocumentPreferences.PageHeight - .MarginPreferences.Bottom
theRight = .DocumentPreferences.PageWidth - .MarginPreferences.Right
End With

FrmBounds = Array(theTop, theLeft, theBot, theRight)

Do Until theFrame.Overflows = False 'keep going until there's no more text
    theDoc.Pages.Add (idAtEnd)
    Set newPg = theDoc.Pages.LastItem

With newPg
           Set NewFrame = .TextFrames.Add("Layer 1")
           NewFrame.GeometricBounds = FrmBounds 'works 1st time on LH page, breaks on next RH page
           NewFrame.PreviousTextFrame = theFrame
    End With

Set theFrame = newPg.TextFrames.LastItem

Loop

End Sub