🚀 go-pugleaf

This isn't exactly the script you're asking for, but it is a script that replaces a missing link with a working one. I use it for replacing missing graphics after renaming the files they used to link to.



 
on run 
	tell application "InDesign CS" 
		tell active document 
			--First generate a list of graphics we can possibly replace 
			try 
				set linkNames to {} & (name of every link whose status is equal to link missing) 
			on error 
				display dialog "Apparently there are no missing graphics in this document." buttons "Cancel" default button 1 
			end try

			--Then ask the user to choose from that list 
			set oldGraphic to choose from list linkNames with prompt "Please choose the name of the graphic you wish to replace:" default items {} without multiple selections allowed

			--Next ask them to select a replacement graphic 
			if (count every item of oldGraphic) is equal to 1 then 
				set newGraphicPath to choose file with prompt "Please choose the location of the replacement graphic on the server:" 
				set AppleScript's text item delimiters to ":" 
				set newGraphic to "" & last text item of (newGraphicPath as string) 
			end if

			-- And now replace the oldGraphic with the newGraphic 
			if exists newGraphicPath then 
				display dialog "Okay to replace " & oldGraphic & " with " & newGraphic & "?" 
				-- Relink the files document-wide 
				relink (every link whose name = item 1 of oldGraphic) to newGraphicPath

				--get name of every link whose status = link out of date

				-- Update the newly relinked files document-wide 
				update (every link whose status = link out of date) 
			end if 
		end tell 
	end tell 
end run