OS 9.2, Quark 4.11 question

Scripting Forums AppleScript | Classic Mac OS
,
#1

Hope I’m not bothering you with a dumb question…
The set up: OS 9.2, Quark 4.11
I’m looking for a script that will: print the image name in the corn of the image box in quark.

I have been using (XS Image Tag.txt) It is very close to what I want. It will make yellow boxes (problem. the same size as the image box. I would like them small and in the corner) with the image name in it.
The problem is that for a multi-page document it places all the yellow image boxes (from the following pages) on the first page.

I can send you the script if you would like.
Or, could you suggest someone who could customize the script for me?

Thanks for your time.

#2

(*
to do:
conv measurements to mm
*)

tell application “QuarkXPress™”

if (count of documents) = 0 then
	activate
	display dialog "Open a QuarkXPress document." buttons {"Cancel"} default button 1 with icon 2
end if

tell document 1
	
	try
		copy (uniqueID of picture boxes whose bounds of image 1 != {0, 0, 0, 0}) to theBoxes
		if class of theBoxes is not list then copy (coerce theBoxes to list) to theBoxes
	on error
		display dialog "Select some items first." buttons {"Cancel"} default button 1 with icon 0
		copy {} to theBoxes
	end try
	
	repeat with i from (count of items in theBoxes) to 1 by -1
		copy item i of theBoxes to theBox
		copy bounds of generic box id theBox as list to {t, l, b, r}
		copy the file path of image 1 of generic box id theBox to filePath
		
		tell me to copy filePath as string to filePath
		set AppleScript's text item delimiters to ":"
		copy last text item of filePath to filePath
		set AppleScript's text item delimiters to ""
		
		make text box at beginning with properties ¬
			{name:"?picTag", bounds:{(b as real) - 4.5, l, b, r}, color:"yellow", vertical justification:centered, text inset:{0, 0, 0, 0}, runaround:none runaround, suppress printing:false}
		
		set justification of paragraph 1 of text box 1 to «constant JUSTcent»
		set properties of paragraph 1 of text box 1 to {contents:filePath, font:"geneva", size:9, leading:9, style:{class:text style info, on styles:{bold, small caps}, off styles:{plain, italic, underline, outline, shadow, superscript, subscript, superior, strikethrough, all caps, word underline, hidden}}, track:"0", trap text:default, vertical scale:"100%"}

	end repeat
	
end tell

end tell

#3

Hi,
i can not test it, but try


repeat with j from 1 to count page
			tell page j

after your “tell document 1”

and dont forget


end tell
		end repeat

after your “end repeat”
Replace "set justification of paragraph 1 of text box 1 to «constant JUSTcent» " by
“set justification of paragraph 1 of text box 1 to left” to get the text in the left corner