🚀 go-pugleaf

GeekGod-- 

Something like this? 



Rem Merge cells 
Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.Documents.Add 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
Rem Get the page width, page height, and margins 
myPageHeight = myDocument.DocumentPreferences.PageHeight 
myPageWidth = myDocument.DocumentPreferences.PageWidth 
myX1 = myDocument.Pages.Item(1).MarginPreferences.MarginLeft 
myY1 = myDocument.Pages.Item(1).MarginPreferences.MarginTop 
myY2 = myPageHeight - myDocument.Pages.Item(1).MarginPreferences.MarginBottom 
myX2 = myPageWidth - myDocument.Pages.Item(1).MarginPreferences.MarginRight 
Rem Size the text frame to fit the margins 
myTextFrame.GeometricBounds = Array(myY1, myX1, myY2, myX2) 
myTextFrame.TextContents = "1a" & vbTab & "1b" & vbTab & "1c" & vbTab & "1d" & vbCr 
myTextFrame.InsertionPoints.Item(-1).TextContents = "2a" & vbTab & "2b" & vbTab & "2c" & vbTab & "2d" & vbCr 
myTextFrame.InsertionPoints.Item(-1).TextContents = "3a" & vbTab & "3b" & vbTab & "3c" & vbTab & "3d" & vbCr 
myTextFrame.InsertionPoints.Item(-1).TextContents = "4a" 
Set myTable = myTextFrame.ParentStory.Tables.Add 
Set myRow = myTable.Rows.Item(myTable.Rows.Count) 
myRow.Merge 




Thanks, 

Ole