🚀 go-pugleaf

Here some info on tables i have collected when experimenting with it lately... I hope you can do something with it:

Tables should be inside a textframe. Otherwise you can't genreate one.
So make sure you have a valid textframe in your indesign document and add a table.
Here is how: (and some more, don't know of this compiles at once:))

IndesignInstance.Documents.add 'indesigninstance is the reference to your application
mydocument = IndesignInstance.ActiveDocument

dim dp as object = mydocument.DocumentPreferences
Dp.pagewidth = 210	'width of pages in new doc (A4)
Dp.PageHeight = 297

'place textframe container
myDocument.Pages.Item(1).TextFrames.Add	'add frame to page 1
myTextFrame = myDocument.Pages.Item(1).TextFrames.Item(1)
'myTextFrame.Label = "Some label, if needed"
'myTextFrame.GeometricBounds = FrameSize 'use pagesize here so frame spreads over the wholepage (if you want an fullpage table..)
'myTextFrame.Move(Position as array of object(containing integers)) (If you live move the frame to some position

'THIS IS ONE WAY......
''add table to text frame,
myTextFrame.Tables.Add(InDesign.idLocationOptions.idAtEnd)
myTable = myTextFrame.Tables.Item(1)

dim mycol as InDesign.Column
dim myrow as InDesign.Row

'THIS IS AN OTHER WAY TO ADD A TABLE
myTextFrame = mydocument.TextFrames.Item(1)
mytable = myTextFrame.Tables.Item(1)

myTextFrame.Tables.Add()
myTable = mydocument.Pages.Item(nPageNr).textFrames.Item(1).Tables.Item(1)

'When you have created the table, and you have a reference to it (myTable), Start setting the number of rows and columns

myTable.RowCount = 3 	
myTable.ColumnCount = 3		

'Finished creating table.
'Remember that the table still needs formatting, like column width and so on..

'Acces rows and columns like this:
Dim idCell as Indesign.Cell
idCell = myTable.Rows.item(1).Cells.Item(1) 'the cell on pos 1,1
idCell.TextContents = "The text in the first cell"

'get next cell
idCell = myTable.Rows.Item(2).Cells.Item(2) 'the second cel in row two position 2,2
dim imgPath as Object = "c:/images/image1.jpg" 'a path to an image
idCell.Place(imgPath) 'place an image in a cell


Well for so far,
I'll just made this one up, i'm quit sure that it is almost runable,.. At least!!! IF you use vb.NET
For vb6 it needs some modifications, but i'm sure that that won't be a problem.

Keep us informed!
Eelko