pdf - cropmarks with applescript.

Can some one help me with this script?
It does nothing after changing some parts.
I try to say to finder all pdf files from this folder.
Then use image events
and try to crop the pdf.

I had it working once but then it was only 1 page. Did some changes.
Now the pdf stays original.


---------
property FileTypeList : {"PDF"}
property extension_list : {"pdf"}

on run
display dialog "Don't doubleclick me! Drop a folder on top of me to execute program!" buttons {"OK"}
end run

on open these_items

with timeout of 600 seconds
repeat with i from 1 to the count of these_items
set this_item to (item i of these_items) as alias
set this_info to info for this_item
if folder of the this_info is true then
process folder(thisitem)
else
try
set this_extension to the name extension of this_info
on error
set this_extension to ""
end try
try
set this_filetype to the file type of this_info
on error
set this_filetype to ""
end try
if (folder of the this_info is false) and (alias of the this_info is false) and ((this_filetype is in the FileTypeList) or (this_extension is in the extension_list)) then
process item(thisitem)
end if
end if

end repeat
end timeout
end open

on process folder(thisfolder)
set these_items to list folder this_folder without invisibles
repeat with i from 1 to the count of these_items
set this_item to alias ((this_folder as Unicode text) & (item i of these_items))
set the this_info to info for this_item
if folder of the this_info is true then
process folder(thisitem)
else
try
set this_extension to the name extension of this_info
on error
set this_extension to ""
end try

try
set this_filetype to the file type of this_info
on error
set this_filetype to ""
end try
if (folder of the this_info is false) and (alias of the this_info is false) and ((this_filetype is in the FileTypeList) or (this_extension is in the extension_list)) then
process item(thisitem)
end if

end if

end repeat
end process_folder

on process item(theseFiles)
tell application "Image Events"
repeat with _thisFile in _theseFiles
set _image to open _thisFile
set _dimensions to dimensions of _image
set _width to item 1 of _dimensions
set _height to item 2 of _dimensions
try
if _width < 343 then
if _height < 485 then
tell application "Finder"
display dialog ¬
"Image width and height (" & _width & ") is too small to crop."
end tell
exit repeat
end if
end if
if _width > 343 then
if _height < 485 then
tell application "Finder"
display dialog "Image height (" & _height & ") is too small to crop."
end tell
exit repeat
end if
end if
if _width < 343 then
if _height > 485 then
tell application "Finder"
display dialog "Image width (" & _width & ") is too small to crop."
end tell
exit repeat
end if
end if
on error errmess
tell application "Finder"
display dialog "This error occured: " & errmess buttons "OK" default button 1
end tell
end try

-- 2 - 3
try
if _width > _height then
crop _image to dimensions {_width, _height}
save _image
close _image
else if _width < _height then
crop _image to dimensions {343, 485}
save _image
close _image
else if _width = _height then
-- crop _image to dimensions {_height, _height}
-- save _image
close _image
end if
on error errmess2
tell application "Finder"
display dialog "This error occured: " & errmess2 buttons "OK" default button 1
end tell
end try

end repeat
end tell


end process_item
---------

me 3

Hello Hiroto,

Thanks for the advice. I will read en test today.
My previous test works indeed with 1 page and image events only save the first page.
I do Have acrobat pro. But would like to do this without 3partie software.
Have some time today and will learn a bit more.

If image events only works on 1 image at time.
Step 1 : Is maybe possible to extract all pages from 1 pdf
Step 2 : edit/crop the pdf pages with image events
step 3 : and then put the pages back together in 1 pdf.

I tested the image events part and It crops and save the pdf.
Thanks Hiroto !

xxx

Good morning Hiroto,

Ok - I'm doing it with acrobat Pro. Many thanks for the help and info.
with compliments.

Find it strange that there is so little support on pdf.
It's a pity mac os x don't have more built in tools for editing pdf.
Isn't pdf the core of preview...

As always many thanks Hiroto.

null

Hello Jacques,

Just tested the script and works superb.
Many thanks for your input! With compliments !
Colin