🚀 go-pugleaf

Thanks for the tips. I will soon have to start creating some kind of order for my scripts (as a newbie they tend to multiply)

Anyway, here is a revised version that seems to work better and (hopefully) will catch inline images, table images, images in groups etc.



 
tell application "InDesign 2.0.2" 
	activate 
	tell active document 
		set myOkFlag to true 
		set myImages to images of all page items

		repeat with i in myImages 
			if item link of i is {} then 
				set myOkFlag to false 
				set myParent to parent of parent of i

				try 
					repeat until class of myParent is page 
						set myParent to parent of myParent 
					end repeat 
					set mySpread to parent of myParent

				on error 
					set myParent to parent of parent of i 
					repeat until not (parent text frame of myParent is {}) 
						set myParent to parent of myParent 
					end repeat 
				end try



				set active spread of window 1 to mySpread 
				select i 
				select nothing 
				tell application "InDesign 2.0.2" 
					tell active window 
						zoom given fit spread 
					end tell 
				end tell 
				select i 
				set myAlert to display dialog "The selected image is not linked. Cancel will exit so you can correct the image. Continue will check for other unlinked images." with icon stop buttons {"Cancel", "Continue"} default button "cancel" 
				if button returned of myAlert is "Cancel" then 
					exit repeat 
				end if 
			end if 
		end repeat

		if myOkFlag is true then 
			display dialog "This document contains no unliked images" 
		end if

		if myOkFlag is false then 
			display dialog "The script is finished" 
		end if 
	end tell 
end tell