Re: Quark auto text place
Re: Quark auto text place
- Subject: Re: Quark auto text place
- From: Luca Pozzato <email@hidden>
- Date: Thu, 07 Oct 2004 20:08:16 +0200
Hi Ian
May be you can work on somthing like this
tell application "QuarkXPress Passport 4.11"
activate
-- units are mm
tell document 1
set x_offset to 0
repeat with myid from 10 to 13
make new picture box at beginning of page 1 with properties
{name:("Image_" & myid), bounds:{0, 0 + x_offset, 50, 50 + x_offset}}
make new text box at beginning of page 1 with properties
{name:("TEXT_" & myid), bounds:{50, 0 + x_offset, 60, 50 + x_offset}}
set paragraph 1 of text box (("TEXT_" & myid) as text) of page 1
to "This id=" & myid
set x_offset to x_offset + 53
end repeat
--- When you call a picture or text box by name you may change its
properties
--Names of these objects become part of your document
set paragraph 1 of text box (("TEXT_" & 12) as text) of page 1 to
"This id=" & "CHANGED"
end tell
end tell
Let me know
Ciao
Luca
> From: "Buttery, Ian" <email@hidden>
> Date: Thu, 7 Oct 2004 11:56:31 +0100
> To: <email@hidden>
> Subject: Quark auto text place
>
> Hi,
>
> I'm trying to place images and create text into a specified boxes within a
> Quark document.
> The images work fine and the text will create but only if I select the text
> box in the Quark document and specify it in the script as the current box -
> when I try to do this automatically by using a UniqueID I get the following
> error . . .
>
> QuarkXPress got an error: Can't get text box id 4930.
>
> The code is as follows . . .
>
>
> set theMessage to ""
> set theFolder to (choose folder with prompt "Select Image Folder") as string
> set theList to list folder theFolder without invisibles
> tell application "QuarkXPress Passport"
> tell document 1
> repeat with eachFile in theList
> set theName to text 1 thru 2 of eachFile & "_Image"
> try --will error if image is not compatible
> tell picture box theName
> set image 1 to (theFolder & eachFile) as alias
> set bounds of image 1 to exact fit
> end tell --picture box
> on error
> set theMessage to theMessage & eachFile & return
> end try
> end repeat
>
> end tell
> end tell
> if theMessage is not "" then
> display dialog theMessage
> end if
>
>
>
> tell application "QuarkXPress Passport"
>
>
> --if content of text box id 4930 is text content then
> tell text box id 4930 to make new text at beginning with properties
> {contents:"£179"}
> end tell
> --end if
>
> Ian Buttery
> Database & Technical Support Manager
> Tel: 01733 843514
> Email: email@hidden
>
>
>
>
> ************************************************************************
> Thomas Cook - The ultimate expert in leisure travel, visit us at
>
> www.thomascook.com or tune in to Thomas Cook TV on Sky
> Digital Channel 648 or ntl:home channel 857 or visit us at...
>
> www.jmc.com www.tcsignature.com www.style-holidays.co.uk
> www.neilson.co.uk www.club18-30.co.uk www.blueskyholidays.com
> www.culturatrips.com www.sunset-holidays.com
> www.roomsandhotels.com
>
> This email is confidential, may be legally privileged, and is for
> the intended recipient only. Access, disclosure, copying,
> distribution or reliance on any of it by anyone else is prohibited
> and may be a criminal offence. Please delete if obtained in error.
> Any views expressed in this message are those of the individual
> sender, except where the sender specifically states them to be
> the views of Thomas Cook UK Ltd.
>
> **************************************************************************
>
> _______________________________________________
> Do not post admin requests to the list. They will be ignored.
> Applescript-users mailing list (email@hidden)
> Help/Unsubscribe/Update your Subscription:
> a.it
>
> This email sent to email@hidden
>
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden