Quark Forums

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. 

 

No you cannot re-link them per say.However, you can note (copy) all of its properties (scale, rotaion, x offset, ect.) import the "new" image and re-apply the properties.

 Hope this helps!

 Hi thank u very much....its helps me great....

 Hi,

Need another help.....how to import the image to quark document???

Thanks in advance...

Poovili..

 

set image 1 of picture box 1 of document 1 to .... (path to your image).

It rather depends how the script is going to know what picture to use. It may be a path calculated from the existing image (e.g. oldname & ".HR" if you were replacing low res with high res and they'd been named properly!)

An easy way to get the syntax right is to use 'choose file', e.g.

set my_pic to choose file
set image 1 of picture box 1 to my_pic

And don't ask me what image 2 of picture box 1 might be!??

Hi,

My quark document contains group boxes (text box and picture box) which grouped together. I need to place the picture i choose in that grouped picture box... is this possible??? if it so...please give me ur ideas.....

 Applescript does not care about that, it will act upon your picture box where ever it may lie.

Try this:

001   tell application "QuarkXPress Passport 6.x"
002      activate
003      set DocName to name of document 1
004      tell document DocName
005         repeat with i from 1 to count of images
006            tell image i
007               set ImageBox to object reference of picture box 1
008               -- Copy writable properties
009               if not missing then
010                  set Img_angle to angle
011                  set Img_color to color
012                  set Img_greek_pictures to greek pictures
013                  set Img_image_trap to image trap
014                  set Img_invert_runaround to invert runaround
015                  set Img_model to model
016                  set Img_name to name
017                  set Img_negative to negative
018                  set Img_offset to offset
019                  set Img_scale to scale
020                  set Img_screen to screen
021                  set Img_screen_angle to screen angle
022                  set Img_screen_frequency to screen frequency
023                  set Img_screen_function to screen function
024                  set Img_shade to shade
025                  set Img_show_half_tone to show half tone
026                  set Img_skew to skew
027                  set Img_suppress_printing to suppress printing
028                  
029                  -- Get new image path
030                  set Img_file_path to (file path) as text
031                  set Img_file_path to my FindReplace("Text of the file path to replace", "text to replace with", Img_file_path)
032                  
033                  -- Re-import picture
034                  set image 1 of ImageBox to file Img_file_path
035                  
036                  -- Re-set image properties
037                  tell image 1 of ImageBox
038                     set angle to Img_angle
039                     set color to name of Img_color
040                     set greek pictures to Img_greek_pictures
041                     set image trap to Img_image_trap
042                     set invert runaround to Img_invert_runaround
043                     set model to Img_model
044                     set name to Img_name
045                     set negative to Img_negative
046                     set offset to Img_offset
047                     set scale to Img_scale
048                     set screen to Img_screen
049                     set screen angle to Img_screen_angle
050                     try
051                        set screen frequency to Img_screen_frequency
052                     end try
053                     set screen function to Img_screen_function
054                     set shade to Img_shade
055                     set show half tone to Img_show_half_tone
056                     set skew to Img_skew
057                     set suppress printing to Img_suppress_printing
058                  end tell
059               end if
060            end tell
061         end repeat
062      end tell
063   end tell

064   on FindReplace(FindWhat, ReplaceBy, ThisString)
065      copy the text item delimiters to OldDelims
066      set the text item delimiters to {FindWhat}
067      set TempList to every text item of ThisString
068      set the text item delimiters to {ReplaceBy}
069      set NewString to TempList as text
070      set the text item delimiters to OldDelims
071      return NewString
072   end FindReplace

Notes: • The line numbers included with this script are there to aid future discussions. In order to use this script, you will have to strip all of them.

You will need to modify line #31 to comply with your scenario.

Hope this helps!

 Hi,

 

Thanks a lot.....Im surprised it is not working for me when it is grouped. My quark doc contains group box where text box and picture box is grouped together. I too used the same syntax but the picture is placing for me.........

 

Please do help me..Thanks in advance... 

Hi,

First you have to write a script to ungroup the boxes and then you can do it. As per as my concern for re-linking I will say yes you can do it.

Hi Scripting_Ace

 When i try to execute above script, I got the AppleScript Runtime Error message

"QuarkXPress got an error: File some object wasn't found." in the following line

  set image 1 of ImageBox to file Img_file_path

I don't think why this error occurs. Please suggest me.

 ( Note :It's working fine in Quarkxpress 7.5. Only in Quarkxpress 6.5, the above error occurs )