🚀 go-pugleaf

ok this code should actually work (make sure you uncomment the image name area and set it back how you need the image path:

Public myInDesign As InDesign.Application
Public myDocument As InDesign.Document
Sub da()

Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument

Rem hard coded image name for testing
Rem fix
ImgName = "PB100BL.JPG"
Rem uncomment this
'ImgNumber = 1

InDImageName = ImgNumber & ImgName

' This line declares the frame label format
LabelName = "img"
LabelNumber = 1

InDFrameName = LabelName & LabelNumber

' This line creates the variable for how many images to place,
' and also how many times to loop the placement.
InDHowMany = InputBox("How many images do you want placed into the composite?", "Composite Image Count", "2")

' This begins the looping placement script
For InDPlaceCount = 1 To InDHowMany
'Set InDPageItem = InDDocument.AllPageItems.Item(InDPlaceCount)
Set myID = myInDesign.ActiveDocument
Set myIR = myID.Rectangles.Item(InDFrameName)
Rem found this code at:
Rem Chris Haas "Different rounded corners" 1/25/03 6:31pm </cgi-bin/webx?13@@.1de77e3e/0>

Set myTable1 = myIR.Place("M:\" & InDImageName)

' This should cause the label and image numbers to progress
ImgNumber = ImgNumber + 1
LabelNumber = LabelNumber + 1
Next

End Sub

I used the Rectangle Frame tool to draw my frames not the text frame tool.
iolaire