🚀 go-pugleaf

In the InDesign Mac forum there was a request for the preflight to warn for pasted images. This script helps you find these images and although it could be better written I' m sure, I post it anyway for anyone who wants it:



 
tell application "InDesign 2.0.2" 
	activate 
	tell active document 
		set myOkFlag to true 
		set myImages to images of (page items whose content type is graphic)

		repeat with i in myImages 
			if item link of i is {} then 
				set myOkFlag to false 
				set mySpread to parent of parent of parent of i 
				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 myChoice 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." buttons {"Cancel", "Continue"} default button "cancel" 
				if button returned of myChoice 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

	end tell 
end tell