A script that I used to use to do this in Quark 4.1:
property MyPrefs : {Catalog:0, MinimumWidth:887}
global TheSource, theDate
--=============================
--Handlers
--=============================
on MakeDoc(thePath, TheDoc)
tell application "QuarkXPressâ„¢ 4.11"
make new document at beginning with properties {automatic text box:false, bottom margin:"3p", facing pages:true, horizontal measure:points, inside margin:"3p", outside margin:"3p", page height:"66p", page width:"51p", top margin:"3p", vertical measure:points, view scale:"100%"}
save document 1 in {thePath & TheDoc}
tell document 1
delete color spec "Blue"
delete color spec "Green"
delete color spec "Red"
end tell
end tell
PageSetUp(1, 1)
end MakeDoc
--=============================
on MakePage(TheDoc)
tell application "QuarkXPressâ„¢ 4.11"
tell document TheDoc
make new page at end
set ThePage to name of result
show page ThePage
end tell
end tell
PageSetUp(TheDoc, ThePage)
return ThePage
end MakePage
--=============================
on PageSetUp(TheDoc, ThePage)
tell application "QuarkXPressâ„¢ 4.11"
tell document TheDoc
tell page ThePage
make new text box at beginning with properties {name:"PageInfo", bounds:{"3p", "3p", "5p6", "48p"}}
set story 1 of text box "PageInfo" to (text returned of TheSource) & return & theDate
set size of last paragraph of story 1 of text box "PageInfo" to "8 pt"
make new picture box at beginning with properties {name:"Image1", bounds:{"5p8", "3p", "16p8", "16p9"}}
make new text box at beginning with properties {name:"Image1info", bounds:{"17p", "3p", "19p6", "16p9"}}
make new picture box at beginning with properties {name:"Image2", bounds:{"5p8", "18p7.5", "16p8", "32p4.5"}}
make new text box at beginning with properties {name:"Image2info", bounds:{"17p", "18p7.5", "19p6", "32p4.5"}}
make new picture box at beginning with properties {name:"Image3", bounds:{"5p8", "34p3", "16p8", "48p"}}
make new text box at beginning with properties {name:"Image3info", bounds:{"17p", "34p3", "19p6", "48p"}}
make new picture box at beginning with properties {name:"Image4", bounds:{"20p2", "3p", "31p2", "16p9"}}
make new text box at beginning with properties {name:"Image4info", bounds:{"31p6", "3p", "34p", "16p9"}}
make new picture box at beginning with properties {name:"Image5", bounds:{"20p2", "18p7.5", "31p2", "32p4.5"}}
make new text box at beginning with properties {name:"Image5info", bounds:{"31p6", "18p7.5", "34p", "32p4.5"}}
make new picture box at beginning with properties {name:"Image6", bounds:{"20p2", "34p3", "31p2", "48p"}}
make new text box at beginning with properties {name:"Image6info", bounds:{"31p6", "34p3", "34p", "48p"}}
make new picture box at beginning with properties {name:"Image7", bounds:{"34p8", "3p", "45p8", "16p9"}}
make new text box at beginning with properties {name:"Image7info", bounds:{"46p", "3p", "48p6", "16p9"}}
make new picture box at beginning with properties {name:"Image8", bounds:{"34p8", "18p7.5", "45p8", "32p4.5"}}
make new text box at beginning with properties {name:"Image8info", bounds:{"46p", "18p7.5", "48p6", "32p4.5"}}
make new picture box at beginning with properties {name:"Image9", bounds:{"34p8", "34p3", "45p8", "48p"}}
make new text box at beginning with properties {name:"Image9info", bounds:{"46p", "34p3", "48p6", "48p"}}
make new picture box at beginning with properties {name:"Image10", bounds:{"49p2", "3p", "60p2", "16p9"}}
make new text box at beginning with properties {name:"Image10info", bounds:{"60p6", "3p", "63p", "16p9"}}
make new picture box at beginning with properties {name:"Image11", bounds:{"49p2", "18p7.5", "60p2", "32p4.5"}}
make new text box at beginning with properties {name:"Image11info", bounds:{"60p6", "18p7.5", "63p", "32p4.5"}}
make new picture box at beginning with properties {name:"Image12", bounds:{"49p2", "34p3", "60p2", "48p"}}
make new text box at beginning with properties {name:"Image12info", bounds:{"60p6", "34p3", "63p", "48p"}}
end tell
end tell
end tell
end PageSetUp
--=============================
on PlaceImages(TheDoc, ThePage, TheBoxNo, ImageInfo)
set OldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
--display dialog ImageInfo as string
tell application "QuarkXPressâ„¢ 4.11"
tell document TheDoc
tell page ThePage
set image 1 of picture box TheBoxNo to ImageInfo
set bounds of image 1 of picture box TheBoxNo to proportional fit
set story 1 of text box (TheBoxNo & "info") to (the last text item of ImageInfo)
--if OnNetwork of ImageInfo is "3" then
-- set theOffset to offset of last character of character of paragraph 2 of story 1 of text box (TheBoxNo & "info")
-- set font of character theOffset of story 1 of text box (TheBoxNo & "info") to "Zapf Dingbats"
--end if
set size of every paragraph of story 1 of text box (TheBoxNo & "info") to "11 pt"
set leading of every paragraph of story 1 of text box (TheBoxNo & "info") to "11 pt"
set justification of every paragraph of story 1 of text box (TheBoxNo & "info") to centered
end tell
end tell
end tell
set AppleScript's text item delimiters to OldDelim
end PlaceImages
--=============================
--=============================
on BuildList(DroppedItems)
set NewList to {}
repeat with AnItem in DroppedItems as list
set AnItem to AnItem as string
if the last character of AnItem is ":" then
tell application "Finder"
set FileList to (files of entire contents of alias AnItem whose file type is "EPSP" or file type is "TIFF" or file type is "EPSF" as list)
end tell
repeat with AFile in FileList
set AFile to AFile as string
set NewList to NewList & AFile
end repeat
else
tell application "Finder"
if file type of alias AnItem is "EPSP" or file type of alias AnItem is "TIFF" or file type of alias AnItem is "EPSF" then set NewList to NewList & AnItem
end tell
end if
end repeat
return NewList
end BuildList
--=============================
on TruncateNum(theNum)
set theNum to theNum as string
set AppleScript's text item delimiters to "."
if (count of text items of theNum) is 2 then
set x to text item 1 of theNum
if (count of text item 2 of theNum) > 3 then
set y to text item 2 of theNum
set AppleScript's text item delimiters to ""
set y to (characters 1 through 3 of y as string)
set theNum to (x & "." & y)
end if
end if
return theNum
end TruncateNum
--=============================
on open (DroppedItems)
set KeyModifiers to keys pressed
if (KeyModifiers) contains "Option" then set Catalog of MyPrefs to 0
set TheSource to display dialog "Enter the source of the files." default answer ""
set NewPath to (choose folder with prompt "Select the folder to save the files in.") as string
set theDate to (current date) as string
set Catalog of MyPrefs to ((Catalog of MyPrefs) + 1)
set TheDoc to "Catalog_" & (Catalog of MyPrefs) as string
set ThePage to 1
MakeDoc(NewPath, TheDoc)
set FileList to BuildList(DroppedItems)
set MyCounter to 0
repeat with AFile in FileList
set MyCounter to MyCounter + 1
if MyCounter > 12 then
set MyCounter to 1
set ThePage to MakePage(TheDoc)
end if
--set ImageInfo to CheckImage(AFile, NewPath)
PlaceImages(TheDoc, ThePage, ("Image" & MyCounter as string), (AFile as string))
end repeat
tell application "QuarkXPressâ„¢ 4.11"
close document 1 saving yes
end tell
end open
It has been a while since I have run this, but I seam to remember that it worked pretty well.