🚀 go-pugleaf

'Here you go

Const MAX_ROWS				= 10
Const idPlaceholderText = &H50487478
Const idLeading 			= &H4D4C646F
Const idAtBeginning		= &H62676E67
Const idPageOrigin		= &H5243506F
Const idContentToFrame	= &H63746F66
Const idProportionally	= &H636F6E70
Const idFrameToContent	= &H636F6E70
Const idCenterContent	= &H63656E63

'Place all of the files in a folder in a table
Dim myInDesign ' As InDesign.Application
' You must add the Microsoft Scripting Runtime to the project to use this example

	Set myInDesign = CreateObject("InDesign.Application.2.0")
	Set myDocument = myInDesign.Documents.Add
	myDocument.ViewPreferences.RulerOrigin = idPageOrigin
	myX1 = myDocument.Pages.Item(1).MarginPreferences.MarginLeft
	myY1 = myDocument.Pages.Item(1).MarginPreferences.MarginTop
	myX2 = myDocument.DocumentPreferences.PageWidth - myDocument.Pages.Item(1).MarginPreferences.MarginRight
	myY2 = myDocument.DocumentPreferences.PageHeight - myDocument.Pages.Item(1).MarginPreferences.MarginBottom
	Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add
	myTextFrame.GeometricBounds = Array(myY1, myX1, myY2, myX2)

	'Set tfp = myTextFrame.textframepreferences
	'tfp.columncount = 3
	'tfp.usefixedcolumnwidth = true
	'tfp.fixedcolumnwidth =

	Set myTable = myTextFrame.ParentStory.Tables.Add
	Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
	' Fill in the name of the folder containing the graphics you want to place.
	Set myFolder = myFileSystemObject.GetFolder("f:\highres")
	myTable.ColumnCount = 2
	myTable.Columns.Item(1).Width = "12p"
	myTable.Columns.Item(2).Width = "24p"
	'myTable.RowCount = myFolder.Files.Count
	myTable.RowCount = MAX_ROWS
	myCounter = 1
	For Each objFile In myFolder.Files
		Set myCell = myTable.Rows.Item(myCounter).Cells.Item(1)
		Set myInsertionPoint = myCell.InsertionPoints.Item(1)
		Set myGraphic = myInsertionPoint.Place(objFile.Path)
		Set myGraphic = myGraphic.Item(1).Parent
		nCellWidth = nCell.Width
		nBounds = nGraphic.GeometricBounds
		nX1 = nBounds(1)
		nY1 = nBounds(0)
		nX2 = nBounds(1) + nCellWidth - (nCell.LeftInset + nCell.RightInset)
		nY2 = nBounds(0) + nCellWidth - (nCell.LeftInset + nCell.RightInset)
		nGraphic.GeometricBounds = Array(nY1, nX1, nY2, nX2)
		nGraphic.Fit idContentToFrame
		nGraphic.Fit idProportionally
		nGraphic.Fit idFrameToContent
		' Add the graphic file name to the second cell.
		Set myInsertionPoint = myTable.Rows.Item(myCounter).Cells.Item(2).InsertionPoints.Item(1)
		myInsertionPoint.TextContents = objFile.Name	'objFile.Path
		' If we've run out of room on the page, add another page.
		If myInsertionPoint.Parent.Parent.Parent.OverFlows = True Then
			Set myPage = myDocument.Pages.Add
			Set myTextFrame = myPage.TextFrames.Add
			myTextFrame.GeometricBounds = myDocument.Pages.Item(myPage.DocumentOffset - 1).TextFrames.Item(1).GeometricBounds
			myTextFrame.PreviousTextFrame = myDocument.Pages.Item(myPage.DocumentOffset - 1).TextFrames.Item(1)
		End If
		myCounter = myCounter + 1
		If myCounter > 10 Then
			Exit For
		End If
	Next 'objFile