🚀 go-pugleaf

Mike-- 

How about this? 

Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Rem Create a dummy document 
Set myDocument = myInDesign.Documents.Add 
Set myParaStyle = myDocument.ParaStyles.Add 
myParaStyle.FillColor = myDocument.Colors.Item(myDocument.Colors.Count) 
Set myPage = myDocument.Pages.Item(1) 
Set myTextFrame = myPage.TextFrames.Add 
myX1 = myPage.MarginPreferences.MarginLeft 
myY1 = myPage.MarginPreferences.MarginTop 
myX2 = myDocument.DocumentPreferences.PageWidth - myPage.MarginPreferences.MarginRight 
myY2 = myDocument.DocumentPreferences.PageHeight / 2 
myTextFrame.GeometricBounds = Array(myY1, myX1, myY2, myX2) 
myTextFrame.TextContents = idPlaceholderText 
myTextFrame.Paragraphs.Item(2).ParagraphStyle = myParaStyle 
Rem Create a new text frame below the existing text frame 
Set myNewTextFrame = myPage.TextFrames.Add 
myNewTextFrame.GeometricBounds = Array(myY2, myX1, myDocument.DocumentPreferences.PageHeight - myPage.MarginPreferences.MarginBottom, myX2) 
Rem Move the formatted paragraph into the new text frame 
Rem Provide the idLocationOptions enum: idAfter, idAtBeginning, idBefore, idAtEnd 
Rem and a valid text object reference. 
myTextFrame.Paragraphs.Item(2).Move idAtBeginning, myNewTextFrame.ParentStory 
 

re: "It may be simple for you..." 

My job is to make it simple for you, too.<g> 

Thanks, 

Ole