Folgendes AppleScript gibt Dir die Bildnamen und - durch Tabulator getrennt - noch ein paar andere interessante Informationen zu den plazierten Bildern in einer Textdatei "MyLinks.txt" auf dem Desktop aus.
Die Daten aus dieser Datei kannst Du über die Zwischenablage z.B. in Excel laden und dort nach Belieben sortieren.
-- link_export.as
-- InDesign 3.0.1
-- generates a list of normal (not missing) links
-- with some kind of information about the link (page, width, horizontal scale, vertical scale, PPI)
tell application "InDesign CS"
set myTXT_File to "MyLinks.txt"
set theData to {}
set end of theData to ("Link" & tab & "Seite" & tab & "Breite" & tab & "% vertikal" & tab & "% horizontal" & tab & "eff. Auflösung")
tell document 1
--Pfad oder ...
--set theFiles to file path of links whose status is normal
--... nur Dateiname
set theFiles to name of links whose status is normal
set theParents to parent of links whose status is normal
repeat with i from 1 to count of theParents
set oneParent to item i of theParents
set myBounds to geometric bounds of oneParent
set myWidth to (round (item 4 of myBounds) - (item 2 of myBounds))
set myScaleVert to absolute vertical scale of oneParent
set myScaleHori to absolute horizontal scale of oneParent
set myPPI to 0
set mzPPI2 to 0
try
set myPPI to item 1 of effective ppi of oneParent
end try
set myScaleVert to (round (myScaleVert * 100)) / 100 as real
set myScaleHori to (round (myScaleHori * 100)) / 100 as real
set myPPI to round myPPI as integer
repeat
if class of parent of oneParent = page then
set end of theData to (item i of theFiles as text) & tab & (document offset of parent of oneParent) & tab & myWidth & tab & myScaleVert & tab & myScaleHori & tab & myPPI
exit repeat
else if class of parent of oneParent = spread then
set end of theData to (item i of theFiles as text) & tab & "spread of page " & (document offset of page 1 of parent of oneParent) & tab & myWidth & tab & myScaleVert & tab & myScaleHori & tab & myPPI
exit repeat
else
set oneParent to parent of oneParent
end if
end repeat
end repeat
end tell
end tell
set oldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to {return}
set theData to theData as text
set AppleScript's text item delimiters to oldDelims
set theDesktop to path to desktop as Unicode text
set fileRef to (open for access file (theDesktop & myTXT_File) with write permission)
set eof fileRef to 0
write theData to fileRef
close access fileRef
tell application "Finder"
open file (theDesktop & myTXT_File)
end tell
beep
activate
display dialog "Finished"
--
Wenn Du nur die Bildnamen brauchst, ändere folgende Zeilen:
1.
alt:
set end of theData to ("Link" & tab & "Seite" & tab & "Breite" & tab & "% vertikal" & tab & "% horizontal" & tab & "eff. Auflösung")
neu:
set end of theData to ("Link")
2.
alt:
if class of parent of oneParent = page then
set end of theData to (item i of theFiles as text) & tab & (document offset of parent of oneParent) & tab & myWidth & tab & myScaleVert & tab & myScaleHori & tab & myPPI
exit repeat
else if class of parent of oneParent = spread then
set end of theData to (item i of theFiles as text) & tab & "spread of page " & (document offset of page 1 of parent of oneParent) & tab & myWidth & tab & myScaleVert & tab & myScaleHori & tab & myPPI
exit repeat
else
set oneParent to parent of oneParent
end if
neu:
set end of theData to (item i of theFiles as text)
Grüßle
Martin
als Antwort auf: [#150933]
