sheck
Dabei seit: 25.03.2002
Ort: Luxemburg
Alter: 45
Geschlecht:
|
Verfasst Sa 17.11.2007 15:54
Titel
|
|
|
Hallo,
Wenn du auf Mac unterwegs bist kannst du vielleicht mal
dieses AppleScript ausprobieren.
ResizeDocFromLeftCorner.scpt
Code: |
tell application "Adobe InDesign CS3"
set aDoc to active document
set crntXSize to page width of document preferences of aDoc
set crntYSize to page height of document preferences of aDoc
set myDialog to make dialog with properties {name:"Seitengröße ändern"}
tell myDialog
make dialog column
tell the result
make static text with properties {static label:"Pagewidth:"}
make static text with properties {static label:"Pageheight:"}
end tell
make dialog column
tell the result
set nuXSizeField to make real editbox with properties {edit value:crntXSize}
set nuYSizeField to make real editbox with properties {edit value:crntYSize}
end tell
end tell
set nu to show myDialog
if nu is true then
set nuXSize to edit value of nuXSizeField
set nuYSize to edit value of nuYSizeField
set moveByX to (crntXSize - nuXSize) / 2
set moveByY to (crntYSize - nuYSize) / 2
-- destroy dialog
else
destroy myDialog
return
end if
set enable layout adjustment of layout adjustment preferences of aDoc to false
set page width of document preferences of aDoc to nuXSize
set page height of document preferences of aDoc to nuYSize
set allPage to every page of aDoc
repeat with aPage in allPage
if side of aPage is right hand then
move every page item of aPage by {0, moveByY}
else if side of aPage is left hand then
move every page item of aPage by {2 * moveByX, moveByY}
else if side of aPage is single sided then
move every page item of aPage by {moveByX, moveByY}
end if
set allGuides to every guide of aPage
repeat with aGuide in allGuides
if orientation of aGuide is «constant flpohorz» then
set location of aGuide to ((location of aGuide) + moveByY)
else
if side of aPage is right hand then
else if side of aPage is left hand then
set location of aGuide to ((location of aGuide) + (2 * moveByX))
else if side of aPage is single sided then
set location of aGuide to ((location of aGuide) + moveByX)
end if
end if
end repeat
end repeat
set allMSpreads to every master spread of aDoc
repeat with aMSpread in allMSpreads
set allMPages to every page of aMSpread
repeat with aPage in allMPages
if side of aPage is right hand then
move every page item of aPage by {0, moveByY}
else if side of aPage is left hand then
move every page item of aPage by {2 * moveByX, moveByY}
else if side of aPage is single sided then
move every page item of aPage by {moveByX, moveByY}
end if
set allGuides to every guide of aPage
repeat with aGuide in allGuides
if orientation of aGuide is «constant flpohorz» then
set location of aGuide to ((location of aGuide) + moveByY)
else
if side of aPage is right hand then
else if side of aPage is left hand then
set location of aGuide to ((location of aGuide) + (2 * moveByX))
else if side of aPage is single sided then
set location of aGuide to ((location of aGuide) + moveByX)
end if
end if
end repeat
end repeat
end repeat
end tell |
Gruß,
Sacha
|
|