🚀 go-pugleaf

Roberto,

your code works in VB, except that it seems to go from the last frame to the first when it places. also, when I try to convert it to VBScript, it gives me an 'unrecognized character' error. I still don't know enough about VB to trouble shoot that one.

Iolaire,

your code works, mine still doesn't ::confused:: It places an image, but it doesn't loop the image name. Here's what I have so far:

Dim InD
Set InD = CreateObject("InDesign.Application.2.0")

If InD.Documents.Count <> 0 Then

Set InDWindow = InD.ActiveWindow
Set InDSpread = InDWindow.ActiveSpread
Set InDDocument = InD.ActiveDocument
Set InDPage = InDDocument.Pages.Item(1)

'	This declares the image name format
ImgName = "img.tif"
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 InDDocument.Rectangles.Count 'step 1

Set InDRec = InDDocument.Rectangles.Item(InDPlaceCount)
Rem found this code at:
Rem Chris Haas "Different rounded corners" 1/25/03 6:31pm

'	Set InDPlaced =
InDRec.Place("Q:\PROJECTS\script test\" & InDImageName)

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

'	End of Script
Else
     MsgBox "Please open a document and try again."
End If

Thanks for the help guys!