Find picture names in cells in Quark
Find picture names in cells in Quark
- Subject: Find picture names in cells in Quark
- From: "Ripka, Herb" <email@hidden>
- Date: Wed, 5 Dec 2007 08:04:13 -0600
- Thread-topic: Find picture names in cells in Quark
The following script works great in finding picture names in a Quark document, and putting the name into a text box over its picture box.
The problem is if these pictures are assigned to cells in a table. Then this script can't see them.
The same probem exists for the "PictureList_TE.scpt" that I posted yesterday (doesn't work on pictures in cells).
Is there a solution?
--Herbert Ripka
Greendale, WI
tell application "QuarkXPress"
activate
if (document 1 exists) then
tell document 1
try
delete (every text box whose name contains "annotate")
end try
set {hm, vm} to {horizontal measure, vertical measure}
if hm is not points or vm is not points then
set properties to {horizontal measure:points, vertical measure:points}
end if
set selection to null
set view scale to fit page in window
set AppleScript's text item delimiters to ":"
repeat with p from 1 to count of pages
show page p
tell page p
repeat with i from 1 to count of picture boxes
set filePath to (file path of image 1 of picture box i) as Unicode text
if filePath is not "null" and filePath is not "no disk file" then
set filename to text item -1 of filePath
tell picture box i
set {sc1, sc2} to scale of image 1 as list
set {y1, x1} to origin of bounds as list
end tell
set y2 to ((y1 as real) + 14)
set x2 to ((x1 as real) + 185)
make text box at beginning with properties {bounds:{y1, x1, y2, x2} ¬
, color:"yellow", name:"annotate" & i, runaround:none runaround}
tell story 1 of text box ("annotate" & i)
set properties to {font:"Monaco", size:11}
set contents to ("" & filename & " " & (sc1 as text))
end tell
end if
end repeat
end tell
end repeat
set AppleScript's text item delimiters to {""}
if hm is not points or vm is not points then
set properties to {horizontal measure:hm, vertical measure:vm}
end if
end tell
display dialog "Done." buttons "OK" default button 1 with icon 1 giving up after 1
else
display dialog "Open a document, please." buttons "OK" default button 1 with icon 2
end if
end tell
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden