QuarkXPress and AppleScript

Hanging parenthesis

mathews — Wed, 18 Nov 2009 18:56:29 GMT

How to hang parenthesis for multiple lines using script

Placeholders/Cut Paste on QuarkXPress 7 Passport

dcbradle — Thu, 19 Nov 2009 09:23:08 GMT

I have upgraded from QuarkXPress 6 to QuarkXPress 7 Passport.

I am now running an Applescript that I created to run on Quark 6, I'm now testing it in Quark 6. Most of my script runs fine, however I'm having problems with a cut and paste/placeholder section.

Part of my script creates a picture box, assign a background colour to it, then creates a text box on top and places a number in the centre. The script then selects and groups these boxes, cuts the group, and where the script has placed a placeholder in another text box, pastes the group.

He's the part of the code that creates the placeholder, creates the boxes, groups them, cuts them and pastes in Quark 6:

set Placeholder to "$$_1_$$"
make new text at end of text box ("Products Description") with properties {contents:Placeholder, size:6.5, font:"Helvetica Light", color:"Yellow"}

make picture box at beginning with properties {name:{"Cat Item Frame " & strCatItem}}
tell picture box ("Cat Item Frame " & strCatItem)
   set bounds to {100, 100, 104, 105.06}
   set runaround to none runaround
   set color to "Wetside Blue 09-10"
   set width of frame to 0.75
   set color of frame to "Wetside Blue 09-10"
   set corner radius to 0.5
   set selected to true
end tell

make new text box at beginning with properties {name:{"Cat Item " & strCatItem}}
tell text box ("Cat Item " & strCatItem)
   set bounds to {101.03, 100, 103.75, 105.06}
   set runaround to none runaround
   set vertical justification to top justified
   set justification of paragraph 1 to centered
   set selected to true
end tell
make new text at end of text box ("Cat Item " & strCatItem) with properties {contents:strCatItem, size:7.5, font:"Stymie Bd BT", color:"White"}

set grouped of group box 1 to true
set selected of group box 1 to true
cut
select (every text of text box ("Products Description") whose contents is Placeholder)
paste
set selected of group box 1 to false
set selected of text box ("Products Description") to false

Then in Quark 7:

set Placeholder to "$$_1_$$"
make new text at end of text box ("Products Description") with properties {contents:«class Plch», size:6.5, font:"Helvetica Light", color:"Yellow"}

make picture box at beginning with properties {name:{"Cat Item Frame " & strCatItem}}
tell picture box ("Cat Item Frame " & strCatItem)
   set bounds to {100, 100, 104, 105.06}
   set runaround to none runaround
   set color to "Wetside Blue 09-10"
   set width of frame to 0.75
   set color of frame to "Wetside Blue 09-10"
   set corner radius to 0.5
   set selected to true
end tell

make new text box at beginning with properties {name:{"Cat Item " & strCatItem}}
   tell text box ("Cat Item " & strCatItem)
   set bounds to {101.03, 100, 103.75, 105.06}
   set runaround to none runaround
   set vertical justification to top justified
   set justification of paragraph 1 to centered
   set selected to true
end tell
make new text at end of text box ("Cat Item " & strCatItem) with properties {contents:strCatItem, size:7.5, font:"Stymie Bd BT", color:"White"}

set grouped of group box 1 to true
set selected of group box 1 to true
cut
select (every text of text box ("Products Description") whose contents is «class Plch»)
paste
set selected of group box 1 to false
set selected of text box ("Products Description") to false

I don't mind if someone gives me another way of scripting this process as opposed to giving me the updated version of using Placeholders in Quark 7.

All I need to achieve is getting the grouped picture and text box into another textbox.

Also to point out I do do this several times on one page.

Moving box to a layer

Emma — Mon, 16 Nov 2009 16:22:03 GMT

I have a script to create a 'guide' box on a non-printing layer. I select the box and run the script and a magenta outlined box appears to show me the area in which items can appear.

However, if my selected box is on page 2, the new box appears on page 2 until the command:

move picture box "NEW" to beginning of layer "GUIDES"

- at which point if moves to page 1

How can I persuade my new picture box to stay on the page where it was created? Here is the script. Make a 2 page Quark doc, draw a picture box on page 2, keep it selected, then run the script. (My measurements are in millimetres, in case that causes problems...)

set layer_exists to "NO"
tell document 1 of application "QuarkXPress"
     set item spread coords to true
     set my_box to object reference of selection
     set the_props to properties of my_box
     tell current spread
          make new picture box at beginning
          set name of picture box 1 to "NEW"
          set bounds of picture box "NEW" to bounds of the_props
          tell picture box "NEW"
               set new_width to (width of bounds as real) - 3.7
               set new_height to (height of bounds as real) - 3.7
               set new_x to (left of bounds as real) + 3.7
               set new_y to (top of bounds as real) + 3.7
               set width of bounds to new_width
               set height of bounds to new_height
               set left of bounds to new_x
               set top of bounds to new_y
               set frame to {color:color spec "Magenta" of document 1 of application "QuarkXPress", gap color:null, gap shade:"100%", inside trap:default, outside trap:default, shade:"100%", style:solid line, width:".2 pt", gap opacity:"100%"}
          end tell
     end tell


     repeat with i from 1 to count of layers
          if name of layer i = "GUIDES" then set layer_exists to "YES"
     end repeat
     if layer_exists is not "YES" then
          make new layer at front
          set name of layer 1 to "GUIDES"
          set suppress print of layer 1 to true
     end if
     set locked of layer "GUIDES" to false
     --This is the line that moves the box to page 1, which is a prob if working on a multipage doc...
     move picture box "NEW" to beginning of layer "GUIDES"
     set content of picture box "NEW" to none content
     set name of generic box "NEW" to null
     set locked of layer "GUIDES" to true

     set item spread coords to false
end tell

-------------------------
[This script was automatically tagged for color coded syntax by Convert Script to Markup Code]

Convert inch value into mm value using AppleScript

prabu — Fri, 13 Nov 2009 04:03:42 GMT

If i have variable with inch value, how can i convert into mm value?

Increase size of Text Box

prabu — Thu, 12 Nov 2009 07:10:08 GMT

how to change/increase the widthsize of a selected text box in QXP6.5 using AS?

Find and replace in Quarkxpress 6.5

jayanthi — Wed, 11 Nov 2009 14:06:13 GMT

Hi,

I am writing a applescript to Find a text and Replace with another text. For example figure 1.1 to figure 2.1

The script works fine as long as there is no hidden XML tags in the quark document. That is, if the text is figure 1.1, then it is easily changed. But if there is some hidden xml tags between figure and 1.1, let say figure <label>1.1</label>, then the script will not change that number.

Note: Here <label> and </label> tags are hidden in Quark document.

Can anybody know how to search the text in quarkxpress document by ignoring hidden xml tags.

My script is:

tell application "QuarkXPress"
tell document 1
try
set every text of every story where it is "figure 1.1" to "figure 2.1"
end try
end tell
end tell

Thanks,

Jayanthi

select menu items which are submenu items?

Witcher — Wed, 11 Nov 2009 17:38:56 GMT

in 6.5...

Without using System Events,is it possible to select menu items which are submenu items?

i.e. this works for "Print"
   select menu item 17 of menu "File"

But if I want to select a submenu item, say menu item 1 of "Export", how would I code that?

None of these work:
   select menu item 1 of menu "Export"
   select menu item 1 of menu "Export" of menu "File"
   select menu item 1 of menu item "Export" of menu "File"

Setting Styles: Difference between "do script" and "run"? (QuarkXPress 7)

kazana — Wed, 11 Nov 2009 12:47:56 GMT

Hi there,

Recently, I've been trying to figure out why QuarkXPress 7 loves to crash on our applescripts.

While looking through the code that's causing the crash, I've noticed a (for me) strange behavior.
In a sub script, We're trying to create a text box, manipulate it, and then delete it again. If that operation fails, we'll return true and an error log with number, or return false otherwise.

For some strange reason, when I call the script via "do script" then the return value is different (true) from when I run it using the "run" command (false).

Any ideas why/how this is happening? Any help would be greatly appreciated.

(btw. I'm running this on OSX 10.5.8, QuarkXPress 7)

Here's the code sample (I've ommitted the irrelevant parts, so ignore some logical weirdness):

property P_TypeToCheck : "style"

try
   if P_TypeToCheck = "style" then
       tell application "QuarkXPress Passport"
           --set myResult to do script {qxp_style} -- this returns true
           set myResult to run qxp_style -- this returns false
       end tell
   else
       error "This \"" & P_TypeToCheck & "\" is not supported!"
   end if
on error errMsg
   error "BadBehaviors: " & errMsg
end try

script qxp_style
   try
       tell application "QuarkXPress Passport"
           tell document 1
               set myBox to make new text box at beginning ¬
                   with properties {bounds:{0, -10, 5, -5}, name:"qxp_style", suppress printing:true}
               set text of myBox to "X"
               set myStyle to a reference to style spec "Normal"
               set myCharStyle to a reference to character spec "Normal"
               tell text box "qxp_style"
                   set x to object reference
                   tell text 1
                       set style sheet to myStyle -- this is where the try breaks when using "do script" instead of "run"
                       set character style of character 1 to myCharStyle
                   end tell
               end tell
           end tell
           try
               delete text box "qxp_style" of document 1
           end try
       end tell
       return false
   on error errMsg number errNum
       try
           tell document 1 of application "QuarkXPress Passport" to delete text box "qxp_style"
       end try
       if errNum = -10006 then
           return true
       else
           error "script qxp_style: " & errMsg
       end if
   end try
end script

AppleScript: 2.0.1
Operating System: Mac OS X (10.5)

List of the softwares supported by AppleScript

prabu — Wed, 11 Nov 2009 12:33:18 GMT

Anyone can tell me what are all the softwares supported by AppleScript.

Need to find auto page no in Master Document (quarkxpress) using AppleScript

prabu — Tue, 10 Nov 2009 05:15:59 GMT

I can't find the automatic page no in a quarkxpress document. So i decided to find those in master document.

If anyone accessed master document like this, kindly suggest me.

Need to know about history of Quarkxpress with their versions

prabu — Thu, 05 Nov 2009 06:34:46 GMT

Need to know about history of all Quarkxpress with their versions

how to apply character style to contents in the textframe.

prabu — Wed, 04 Nov 2009 06:32:48 GMT

set style sheet of paragraph 1 of selection to H1

using this above script, i have applied para style to the selection.

how to apply characterstyle to the selection range?

Cant get exact value in QuarkXpress 6.5

prabu — Wed, 04 Nov 2009 06:10:02 GMT

when i try to get the value of height in a quarkxpress 6.5 document, the value displays like <<data FXVM030F0000>>

how can i change the above value into inches.

Anyone can suggest me.

deleting and replacing style spec

Goar — Tue, 03 Nov 2009 13:02:32 GMT

Hi, I would like to delete a style spec replacing it by another one.

Is ist possible with AppleScript as it is possible by hand?

Is it possible to relink images in quark 6.5 document using applescript???

poovili — Thu, 18 Sep 2008 10:12:24 GMT

HI,

I have quark 6.5 document. i want to relink the missing images found in that document. I dont get any idea abt relinking...

First,is it possible????if so please come up with your ideas immediately..

Thanks in advance.

poovili.

rename images

rajeev — Thu, 28 May 2009 05:07:35 GMT

Dear All,

After a long time I back in this forum. I don't have mac & Quark with me. If some one is having some time then please look into it.

One of my collegue is asking for one script for Qaurk 6.5, and that is re-linking of images.

They are having a many number of images in the document, and now they have renamed all the images and they want to re-link thoses images in on click.

They are having one mapping file called imagemap.txt. In that file is like below.

------------------------------------

Old Name New Name

-----------------------------------

They want to update the link with new name by refering this file.

Regards,

Rajeev

Script and XT

mtbswiss — Thu, 22 Oct 2009 14:36:24 GMT

Need Help with find/change in qxp8

DmitryP — Fri, 30 Oct 2009 12:22:35 GMT

Hi :)))))

I do have a standard script for find and change words in qxp7, it also worked well for qxp6... But now there is a problem with, as I think, word delimiters in qxp8 ....

when I change for example word "schwarz" (german) all the schwarz cases surrounded by spaces change well but the word written like this "lila/schwarz" stay unchanged while in qxp7 everything was OK... and the word changed to "lila/black"...

Pls. I am new to qxp8 and what should I do to correct this error...

Regards

Dmitry

Round value for page width

arunkumar — Thu, 22 Oct 2009 15:28:44 GMT

HI
Any can resovle this problem
Actually i need to print page in spreads,
1. While running the below script the paper width is set decimal value as e.g 409.999 not as 410, Even though i set round function to paper width.
2. When i assign page width as integer its show value that less that 2mm, e.g if Trim is 200 then output spread shows 398 not as 400.

tell application "QuarkXPress"
    activate
    if not (exists (document 1)) then
        display dialog "No document open, exit!" buttons {"OK"} default button "OK"
        return
    end if

    tell document 1
        set DocName to name as text
        set FilePath to "Users:macuser:Desktop:PDF:In:" & DocName & ".ps"
        set pagewidth to page width as real
        set horizontal measure to millimeters
        set vertical measure to millimeters
    end tell
    tell print setup of document 1
        set registration marks to centered
        set registration marks offset to "6 pt"
        set spreads to true
        set printer type to "AdobePDF 7.0"
        set paper size to "Custom"
        set paper width to round ((pagewidth * 2) + 6)
        set orientation to portrait
        set page position to center horizontal
        set resolution to 2400
        set reduce or enlarge to "100%"
        set print quality to normal
        set data format to binary data
    end tell
    print document 1 PostScript file {FilePath}
end tell

Cheers
Arun Kumar

removing hard returns

Shailesh — Thu, 24 Sep 2009 14:27:26 GMT

Hello Team,

I would like to remove hard returns from my active document using script.

can you please provide me any reference or sample for this.

Thanks,

Shailesh

Relinking Images

prabu — Tue, 27 Oct 2009 05:09:36 GMT

Anyone can suggest me to relink the images.

Thanks in advance.

Regards

Prabu

Finding pictures within a QuarkXPress Document (Version 7.5)

prabu — Mon, 26 Oct 2009 10:53:28 GMT

Kindly suggest me to find the all pictures within a QuarkXPress document.

After finding, i have to rename all pictures then i have to give the link to the corresponding pictures.

Thanks in advance.

round value for papar width

arunkumar — Thu, 22 Oct 2009 15:29:10 GMT

Need a HELP!!!!

bpldhina — Sun, 20 Sep 2009 11:46:55 GMT

Dear ALL,

My name is Dhinakaran and am new to this forum.

I need a help to the below requirement to be scripted in applescript

am using Mac Version : 10.5.2 and 10.5.5
QuarkXPress : 7.0

Required:

Preference>ColorManager>Source Setup to be set from Legacy to Default QXP 7

In quarkxpress, I need to change the source setup to be set from Legacy to default qxp 7 using applescript.

Color name Grid Cyan & Infill Magenta to be renamed as GRID_CYAN & INFILL_MAGENTA

I need to rename the color name in color pallette from Initial lower case to UPPER CASE using applescript.

All GRID_CYAN & INFILL_MAGENTA objects to be kept in separate layers with Trap info set to Overprint.

Please get back to me if you dont understand.

Regards,

Dhinakaran

Execute script on document open

cweger — Tue, 06 Oct 2009 17:07:19 GMT

Hello all,

Is there a way to get Quark 7 through 8 to automatically execute an AppleScript before or after a document is opened? Or perhaps an Extension that enables this behavior?

Apologies if this question has been asked before.

Thanks,

Chuck