Da muss man zwar wieder sagen: Chapeau! Ein tolles Script, schlank und clean. Da vielen Dank für.

Leider müsste ich jetzt versuchen, dem Script noch zwei Sachen beizubringen (menuID invoken und SystemEvents irgendwie ansprechen), die ich bisher nur in AS lösen konnte, allerdings habe ich beim Testen eine andere Sache festgestellt, die ich nicht weiss, ob man die on JS irgendwie umschiffen kann:

Wenn ich auf Bilddaten aus dem DAM, und das wären die primär, das Script benutze, kommt als Ergebnis aus dem Pfad "cumulus://srvmar16.zentrale.ad.local:9287/Corporate/AssetRecords/183" dann als Dateiname "9287:Corporate:AssetRecords:183" raus. Aufgrund des Plugins werden die DAM-Links irgendwo im Hintergrund aufgelöst, und die Linkpalette zeigt auch als Name jederzeit "shutterstock_546301177.jpg" an. Per AS angescriptet, spucken die graphicobjekte auch als name dann das aufgelöste aus.

Was ich bisher habe in AS, ein Script welches die Selection nicht weiter absichert, und nur mit einem Bild oder Bildcontainer funktioniert. Gestern wollte ich es quasi erweitern, dass eine Gruppe nicht ausgeschlossen wird, sondern "durchleutet" wird. Das gleiche gilt auch für eine Selektion von mehreren Bildkästen. Mit solch codesnippseln wie "object reference of all page items of selection" und irgendwie mit "all graphics". Doch die verschiedenen Fälle von Bild in Rahmen, oder Gruppe in Rahmen, oder Gruppe in Gruppe in Rahmen, oder Selektion von leerem Rahmen und Gruppe usw. konnte ich nicht greifen. Ich hatte gehofft, mit "all graphics" irgendwie alles in ein array zu bekommen.

set errormsg to ""
set ProgrammName to "IDC_Recherche"
set myVersion to "1.0.2"

set IDC_Datensaetze to 1936410
set IDC_Suchen to 1936392
set IDC_Verknuepfen to 1936454

on CallMenuID(INDID)
tell application "Adobe InDesign CC 2018"
set tempaction to menu action id INDID
invoke tempaction
end tell
end CallMenuID

tell application "Adobe InDesign CC 2018"
set mySelection to selection
try
if (count documents) = 0 then set errormsg to "Kein Dokument geöffnet."
if (length of mySelection > 1) then set mySelection to {}
if (class of (object reference of item 1 of mySelection) = group) then set errormsg to "Gruppe gewählt."
if (class of (object reference of item 1 of mySelection) = text frame) then set errormsg to "Textrahmen erkannt."
end try

if errormsg is not "" then
display dialog "Fehler aufgetreten:
" & errormsg buttons {"Scheiße."} default button 1 giving up after 2 with title ProgrammName with icon 0
else
tell active document
set mySelection to selection

if class of item 1 of mySelection is not in [image, PDF, EPS] then
set myItem to ""
try
set myItem to item link of all graphics of item 1 of mySelection
end try
else
set myItem to item link of item 1 of mySelection
end if

set TML to ""
if myItem ≠ "" then
set TML to name of myItem
set TML to my remove_extension(TML)
set the clipboard to "" & TML
display notification "Name in die Zwischenablage kopiert" with title "" & link type of myItem & " erkannt" subtitle "\"" & TML & "\""
end if

my CallMenuID(IDC_Datensaetze)

tell application "System Events"
activate application "Adobe InDesign CC 2018"
keystroke "v" using {command down}
keystroke return
end tell

end tell
end if
end tell

on remove_extension(this_name)
if this_name contains "." then
set this_name to ¬
(the reverse of every character of this_name) as string
set x to the offset of "." in this_name
set this_name to (text (x + 1) thru -1 of this_name)
set this_name to (the reverse of every character of this_name) as string
end if
return this_name
end remove_extension

tell application "Finder"
try
on error the error_message number the error_number
display dialog "Error: " & the error_number & ". " & the error_message buttons {"OK"} default button 1 default answer "ugh?"
end try
end tell