🚀 go-pugleaf

Figured it out - now if someone can help me figure out how to find out if there are master text frames!

'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

pgWidth = .DocumentPreferences.PageWidth
PgHeight = .DocumentPreferences.PageHeight
MgnBottom = .MarginPreferences.Bottom
MgnRight = .MarginPreferences.Right

theTop = .MarginPreferences.Top
theLeft = .MarginPreferences.Left
theBot = PgHeight - MgnBottom
theRight = pgWidth - MgnRight
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



If newPg Mod 2 <> 0 Then 'right hand page
        FrmBounds = Array(theTop, theLeft + pgWidth, theBot, theRight + pgWidth)
    Else
        FrmBounds = Array(theTop, theLeft, theBot, theRight)
    End If

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